Days between dates: Difference between revisions

m
Line 957:
Or, composing rather than raising errors:
 
<lang haskell>moduleimport TokenizedData.Time where(Day)
 
import Data.Time (Day)
import Data.Time.Calendar (diffDays)
import Data.Time.Format (defaultTimeLocale, parseTimeM)
Line 992 ⟶ 990:
showDateDiff s1 s2 =
maybe
( unlines ["Unparseable as date string pair:", s1, s2])
["Unparseable as date string pair:", s1, s2]
)
( \n ->
concat
[ "There are ", show n, " days between ", s1, " and ", s2, "."]
show n,
" days between ",
s1,
" and ",
s2,
"."
]
)
$ daysBetween s1 s2</lang>
9,655

edits