Off by one errors are funny

dtekcth · Jun 4, 2024 · 6e707ce · 6e707ce
1 parent 32466e2
commit 6e707ce
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Util.hs b/src/Util.hs
@@ -35,7 +35,7 @@ removeWhitespaceTags =
 nextDay :: YearMonthDay -> YearMonthDay
 nextDay (YearMonthDay y m d)
   | d < len   = YearMonthDay  y       m      (d + 1)
-  | m < 12    = YearMonthDay  y      (m + 1) (d - len)
-  | otherwise = YearMonthDay (y + 1)  1      (d - len)
+  | m < 12    = YearMonthDay  y      (m + 1)  1
+  | otherwise = YearMonthDay (y + 1)  1       1
   where
       len = gregorianMonthLength y m