jbrechtel
456eae4717
- Fixed hashPasswordIO to use real PBKDF2 hashing from Sis.Auth - Added seed route (rseed) for demo data initialization - Replaced redirect() in update functions with success views (redirect uses throwError_ which broke with effectful 2.4) - Added loginSuccessView and signupSuccessView with dashboard links - Patched Hyperbole Socket.hs to parse WebSocket form body into Form params - Patched Hyperbole Wai.hs to include TargetViewId in response metadata - Fixed View/Page type mismatches (hyper wrapper vs plain view) - Removed dead pure after redirect calls - Verified: login submits, session set, success view rendered
22 lines
389 B
Haskell
22 lines
389 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Sis.Route (AppRoute (..)) where
|
|
|
|
import GHC.Generics (Generic)
|
|
import Web.Hyperbole.Route
|
|
|
|
data AppRoute
|
|
= Home
|
|
| RLogin
|
|
| RSignup
|
|
| RDashboard
|
|
| RChores
|
|
| RHousehold
|
|
| RActivity
|
|
| RSeed
|
|
deriving stock (Eq, Generic, Show)
|
|
|
|
instance Route AppRoute where
|
|
baseRoute = Just Home
|