fix: wrap all update action views in pageLayout so navbar persists on WebSocket updates
HyperView update actions replace only the hyper component — without pageLayout the navbar disappears after any interactive action (create chore, navigate pages, refresh, create household, etc.). Every hyper-returning update now wraps the view in pageLayout us.
This commit is contained in:
@@ -44,10 +44,10 @@ instance (DB :> es, IOE :> es) => HyperView ActivityPage es where
|
||||
Just us -> do
|
||||
hhs <- getUserHouseholds (UserId (usUserId us))
|
||||
case hhs of
|
||||
[] -> pure $ hyper ActivityPage $ el "No households"
|
||||
[] -> pure $ hyper ActivityPage $ pageLayout us $ el "No households"
|
||||
(h : _) -> do
|
||||
log <- getActivityLog (unHouseholdId (householdId h)) pageNum 20
|
||||
pure $ hyper ActivityPage $ activityView log
|
||||
pure $ hyper ActivityPage $ pageLayout us $ activityView log
|
||||
|
||||
activityView :: ActivityLogPage -> View ActivityPage ()
|
||||
activityView log = do
|
||||
|
||||
Reference in New Issue
Block a user