Days between dates: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,216: / Line 1,216: @@
 daysBetween s1 s2 =
   dayFromString s2
-    >>= ( \d2 ->
+    >>= \d -> diffDays d <$> dayFromString s1
-            dayFromString s1
-              >>= Just . diffDays d2
-        )
 dayFromString :: String -> Maybe Day