rendering a June 30 date span properly (#272)

30 days hath september, april, JUNE and november
This commit is contained in:
Simon Michael 2015-07-02 20:44:39 -07:00
parent b827f1a146
commit cddaa2724d

View File

@ -134,8 +134,8 @@ showDateSpan ds@(DateSpan (Just from) (Just to)) =
,(2,[28,29]) ,(2,[28,29])
,(3,[31]) ,(3,[31])
,(4,[30]) ,(4,[30])
,(5,[30]) ,(5,[31])
,(6,[31]) ,(6,[30])
,(7,[31]) ,(7,[31])
,(8,[31]) ,(8,[31])
,(9,[30]) ,(9,[30])