fix: rename route constructors to avoid type conflicts
- Renamed route constructors: RouteLogin → RLogin, RouteDashboard → RDashboard, etc. - This fixes ambiguous occurrence errors with Types.Dashboard vs Route.Dashboard - Fixed Layout.hs navbar links to use new constructor names - Server verified serving HTML on /login, /rdashboard, etc.
This commit is contained in:
+8
-8
@@ -47,11 +47,11 @@ main = do
|
||||
Warp.run port $ app
|
||||
|
||||
router :: (Hyperbole :> es, DB :> es, IOE :> es) => AppRoute -> Eff es Response
|
||||
router RouteHome = do
|
||||
redirect (routeUri RouteDashboard)
|
||||
router RouteLogin = runPage Sis.Page.Login.page
|
||||
router RouteSignup = runPage Sis.Page.Signup.page
|
||||
router RouteDashboard = runPage Sis.Page.Dashboard.page
|
||||
router RouteChores = runPage Sis.Page.Chores.page
|
||||
router RouteHousehold = runPage Sis.Page.Household.page
|
||||
router RouteActivity = runPage Sis.Page.Activity.page
|
||||
router Home = do
|
||||
redirect (routeUri RDashboard)
|
||||
router RLogin = runPage Sis.Page.Login.page
|
||||
router RSignup = runPage Sis.Page.Signup.page
|
||||
router RDashboard = runPage Sis.Page.Dashboard.page
|
||||
router RChores = runPage Sis.Page.Chores.page
|
||||
router RHousehold = runPage Sis.Page.Household.page
|
||||
router RActivity = runPage Sis.Page.Activity.page
|
||||
|
||||
Reference in New Issue
Block a user