fix: progress on Hyperbole view DSL - form tags, imports, constraints

- Fix tag calls to use \$ none for self-closing tags
- Add IOE constraint to HyperView instances
- Add warning suppressions where needed
- Fix Form data type imports
- Remove duplicate getUserHouseholds helpers
- Remaining issues: String/Text mismatches in text calls,
  a few view DSL type errors in Dashboard/Chores
This commit is contained in:
2026-07-16 06:41:49 -04:00
parent 7eaf6ab7e7
commit c45ae41645
6 changed files with 19 additions and 22 deletions
+1 -4
View File
@@ -18,7 +18,7 @@ data ActivityPage = ActivityPage
deriving stock (Generic)
deriving anyclass (ViewId)
instance (DB :> es) => HyperView ActivityPage es where
instance (DB :> es, IOE :> es) => HyperView ActivityPage es where
data Action ActivityPage
= RefreshActivity
| GoToPage Int
@@ -82,9 +82,6 @@ entryRow e = do
text ("\"" <> note <> "\"")
Nothing -> none
getUserHouseholds :: (DB :> es) => UserId -> Eff es [Household]
getUserHouseholds = getUserHouseholds
page :: (Hyperbole :> es, DB :> es) => Eff es (View ActivityPage ())
page = do
mSession <- lookupSession @UserSession