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

src/Sis/Page/Login.hs

@@ -41,10 +41,19 @@ instance (DB :> es, IOE :> es) => HyperView LoginPage es where
             Just u
                 | verifyPassword (lfPassword formData') (userPasswordHash u) -> do
                     saveSession (UserSession (unUserId (userId u)))
-                    redirect (routeUri RDashboard)
-                    pure $ hyper LoginPage $ el "Redirecting..."
+                    pure (loginSuccessView)
+
             _ -> pure (loginView (Just "Invalid email or password"))
-    update Noop = pure $ hyper LoginPage $ loginView Nothing
+    update Noop = pure (loginView Nothing)
+
+loginSuccessView :: View LoginPage ()
+loginSuccessView = do
+    el @ att "class" nbContainerClass @ att "style" "max-width:480px;margin:4rem auto;text-align:center" $ do
+        el @ att "class" nbBoxClass @ att "style" "padding:2rem" $ do
+            el @ att "class" nbFontHeading1Class $ text "Logged In!"
+            el @ att "style" "margin-top:1rem;margin-bottom:1rem" $ text "You are now logged in."
+            route RDashboard $ text "Go to Dashboard"
+
 loginView :: Maybe Text -> View LoginPage ()
 loginView mError = do
     el @ att "class" nbContainerClass @ att "style" "max-width:480px;margin:4rem auto" $ do
@@ -71,5 +80,5 @@ page = do
     case mSession of
         Just _ -> do
             redirect (routeUri RDashboard)
-            pure $ hyper LoginPage $ el "Redirecting..."
+
         Nothing -> pure $ hyper LoginPage $ loginView Nothing