chore: cleanup trailing empty lines from sed operations

This commit is contained in:
2026-07-16 07:30:37 -04:00
parent 456eae4717
commit e8036bab11
7 changed files with 2 additions and 9 deletions
-2
View File
@@ -42,7 +42,6 @@ instance (DB :> es, IOE :> es) => HyperView LoginPage es where
| verifyPassword (lfPassword formData') (userPasswordHash u) -> do
saveSession (UserSession (unUserId (userId u)))
pure (loginSuccessView)
_ -> pure (loginView (Just "Invalid email or password"))
update Noop = pure (loginView Nothing)
@@ -80,5 +79,4 @@ page = do
case mSession of
Just _ -> do
redirect (routeUri RDashboard)
Nothing -> pure $ hyper LoginPage $ loginView Nothing