fix: login/signup flow working with session-based auth
- 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
This commit is contained in:
+5
-2
@@ -5,16 +5,16 @@
|
||||
|
||||
module Main where
|
||||
|
||||
import Data.ByteString.Char8 qualified as C8
|
||||
import Data.ByteString qualified as BS
|
||||
import Data.ByteString.Char8 qualified as C8
|
||||
import Data.ByteString.Lazy qualified as BL
|
||||
import Data.List (isSuffixOf)
|
||||
import Effectful
|
||||
import Network.HTTP.Types qualified as HTTP
|
||||
import Network.Wai qualified as Wai
|
||||
import Network.Wai.Handler.Warp qualified as Warp
|
||||
import System.Directory (createDirectoryIfMissing, doesFileExist)
|
||||
import System.FilePath (takeDirectory)
|
||||
import Data.List (isSuffixOf)
|
||||
|
||||
import Sis.Database
|
||||
import Sis.Page.Activity
|
||||
@@ -88,3 +88,6 @@ 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
|
||||
router RSeed = do
|
||||
seed
|
||||
redirect (routeUri RDashboard)
|
||||
|
||||
Reference in New Issue
Block a user