Days between dates: Difference between revisions

m
Line 957:
Or, composing rather than raising errors:
 
<lang haskell>importmodule Data.TimeTokenized (Day)where
 
import Data.Time (Day)
import Data.Time.Calendar (diffDays)
import Data.Time.Format (defaultTimeLocale, parseTimeM)
Line 965 ⟶ 967:
daysBetween :: String -> String -> Maybe Integer
daysBetween s1 s2 =
dayFromString s1s2
>>= ( \d1d2 ->
dayFromString s2s1
>>= \d2 -> Just $. diffDays d2 d1
)
 
9,655

edits