Fix calculation for adjusting start date to Sunday for booklog calendar.

krymtkts · Jan 31, 2025 · 40e75c2 · 40e75c2
1 parent ecb94be
commit 40e75c2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Booklog.fs b/src/Booklog.fs
@@ -54,8 +54,8 @@ module Misc =
             if d.DayOfWeek = DayOfWeek.Sunday then
                 d
             else
-                let toMonday = (int d.DayOfWeek + 6) % 7 |> float
-                d.AddDays(-toMonday)
+                let toSunday = d.DayOfWeek |> float
+                d.AddDays(-toSunday)
 
         let endDate =
             let d = DateTime(year, 12, 31)