feat: record activity when checking off a household chore

2026-08-04 09:49:19 -04:00
parent 47a2eff484
commit 92c9fae885
1 changed files with 7 additions and 3 deletions
@@ -49,8 +49,12 @@ instance (DB :> es, IOE :> es) => HyperView DashboardPage es where
                    (h : _) -> do
                        dash <- getDashboard (unHouseholdId (householdId h)) today
                        pure $ hyper DashboardPage $ pageLayout us $ dashboardView dash
-    update (CheckOff _oid) = do
-        -- TODO: wire up to activity form
+    update (CheckOff oid) = do
+        mUser <- lookupSession @UserSession
+        case mUser of
+            Nothing -> pure (el "Not authenticated")
+            Just us -> do
+                _ <- recordActivity (unOccurrenceId oid) (UserId (usUserId us)) ActivityCompleted Nothing False
                update RefreshDashboard

 dashboardView :: Dashboard -> View DashboardPage ()