Days between dates: Difference between revisions

Content added Content deleted

Inline

@@ Line 957: / Line 957: @@
 Or, composing rather than raising errors:
-<lang haskell>import Data.Time (Day)
+<lang haskell>module Tokenized where
+import Data.Time (Day)
 import Data.Time.Calendar (diffDays)
 import Data.Time.Format (defaultTimeLocale, parseTimeM)
@@ Line 965: / Line 967: @@
 daysBetween :: String -> String -> Maybe Integer
 daysBetween s1 s2 =
-  dayFromString s1
+  dayFromString s2
-    >>= ( \d1 ->
+    >>= ( \d2 ->
-            dayFromString s2
+            dayFromString s1
-              >>= \d2 -> Just $ diffDays d2 d1
+              >>= Just . diffDays d2
         )