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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user