chore: cleanup trailing empty lines from sed operations

src/Sis/Database.hs

@@ -50,11 +50,11 @@ import System.Directory (createDirectoryIfMissing)
 import System.FilePath (takeDirectory)
 import Text.Read (readMaybe)
 
-import Sis.Types
-import Sis.Auth (hashPassword)
 import Crypto.Random.Entropy (getEntropy)
 import Data.ByteString.Base64 qualified as B64
 import Data.Text.Encoding qualified as TE
+import Sis.Auth (hashPassword)
+import Sis.Types
 
 ----------------------------------------------------------------------
 -- Effect definition

src/Sis/Page/Activity.hs

@@ -98,7 +98,6 @@ page = do
     case mSession of
         Nothing -> do
             redirect (routeUri RLogin)
-
         Just us -> do
             hhs <- getUserHouseholds (UserId (usUserId us))
             case hhs of

src/Sis/Page/Chores.hs

@@ -95,7 +95,6 @@ page = do
     case mSession of
         Nothing -> do
             redirect (routeUri RLogin)
-
         Just us -> do
             hhs <- getUserHouseholds (UserId (usUserId us))
             case hhs of

src/Sis/Page/Dashboard.hs

@@ -111,7 +111,6 @@ page = do
     case mSession of
         Nothing -> do
             redirect (routeUri RLogin)
-
         Just us -> do
             today <- liftIO (utctDay <$> getCurrentTime)
             hhs <- getUserHouseholds (UserId (usUserId us))

src/Sis/Page/Household.hs

@@ -120,7 +120,6 @@ page = do
     case mSession of
         Nothing -> do
             redirect (routeUri RLogin)
-
         Just us -> do
             hhs <- getUserHouseholds (UserId (usUserId us))
             case hhs of

src/Sis/Page/Login.hs

@@ -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

src/Sis/Page/Signup.hs

@@ -89,5 +89,4 @@ page = do
     case mSession of
         Just _ -> do
             redirect (routeUri RDashboard)
-
         Nothing -> pure $ hyper SignupPage $ signupView Nothing