chore: cleanup trailing empty lines from sed operations
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user