feat: Hyperbole port - all modules created, Database effect working
- Database.hs: effectful DB effect with all operations + convenience wrappers - Types.hs: stripped Aeson (kept ToJSON/FromJSON on IDs), added form types - Route.hs, Style.hs, View/Layout.hs: support modules - All Page modules: Login, Signup, Dashboard, Chores, Household, Activity - Main.hs: Hyperbole app entry point with router - Known issue: Hyperbole view DSL syntax needs cleanup in page modules (tag calls need $ none suffix, form elements need field wrappers)
This commit is contained in:
@@ -0,0 +1,20 @@
|
||||
{-# LANGUAGE DeriveGeneric #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
module Sis.Route (AppRoute (..)) where
|
||||
|
||||
import GHC.Generics (Generic)
|
||||
import Web.Hyperbole.Route
|
||||
|
||||
data AppRoute
|
||||
= RouteHome
|
||||
| RouteLogin
|
||||
| RouteSignup
|
||||
| RouteDashboard
|
||||
| RouteChores
|
||||
| RouteHousehold
|
||||
| RouteActivity
|
||||
deriving stock (Eq, Generic, Show)
|
||||
|
||||
instance Route AppRoute where
|
||||
baseRoute = Just RouteHome
|
||||
Reference in New Issue
Block a user