Ensure weekday is updated

This ensures us that our view is consistent within ~1 minute of reality.

1 files changed, 5 insertions, 1 deletions

diff --git a/scratch/habit-screens/client/src/State.elm b/scratch/habit-screens/client/src/State.elm
index 9e594f9a2462..5bfa5c92802b 100644
--- a/scratch/habit-screens/client/src/State.elm
+++ b/scratch/habit-screens/client/src/State.elm
@@ -11,6 +11,7 @@ type Msg
     | SetView View
     | ReceiveDate Date.Date
     | ToggleHabit Int
+    | MaybeAdjustWeekday
 
 
 type View
@@ -65,7 +66,7 @@ update msg ({ completed } as model) =
             )
 
         ReceiveDate x ->
-            ( { model | dayOfWeek = Just Sun }, Cmd.none )
+            ( { model | dayOfWeek = Just (Date.weekday x) }, Cmd.none )
 
         ToggleHabit i ->
             ( { model
@@ -78,3 +79,6 @@ update msg ({ completed } as model) =
               }
             , Cmd.none
             )
+
+        MaybeAdjustWeekday ->
+            ( model, Date.today |> Task.perform ReceiveDate )