Days between dates: Difference between revisions
Content added Content deleted
Line 957: | Line 957: | ||
Or, composing rather than raising errors: |
Or, composing rather than raising errors: |
||
<lang haskell> |
<lang haskell>import Data.Time (Day) |
||
import Data.Time (Day) |
|||
import Data.Time.Calendar (diffDays) |
import Data.Time.Calendar (diffDays) |
||
import Data.Time.Format (defaultTimeLocale, parseTimeM) |
import Data.Time.Format (defaultTimeLocale, parseTimeM) |
||
Line 992: | Line 990: | ||
showDateDiff s1 s2 = |
showDateDiff s1 s2 = |
||
maybe |
maybe |
||
( |
(unlines ["Unparseable as date string pair:", s1, s2]) |
||
["Unparseable as date string pair:", s1, s2] |
|||
) |
|||
( \n -> |
( \n -> |
||
concat |
concat |
||
["There are ", |
[ "There are ", |
||
show n, |
|||
" days between ", |
|||
s1, |
|||
" and ", |
|||
s2, |
|||
"." |
|||
] |
|||
) |
) |
||
$ daysBetween s1 s2</lang> |
$ daysBetween s1 s2</lang> |