From 34cba7d0f9faffe7b97692ccc6b3402fced63cbb Mon Sep 17 00:00:00 2001
From: adambrangenberg <adabran06@gmail.com>
Date: Wed, 24 Dec 2025 05:09:10 +0100
Subject: Refactor

---
 src/Endpoints/LoginEndpoint.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Endpoints/LoginEndpoint.hs')

diff --git a/src/Endpoints/LoginEndpoint.hs b/src/Endpoints/LoginEndpoint.hs
index ad4a514..cca10d4 100644
--- a/src/Endpoints/LoginEndpoint.hs
+++ b/src/Endpoints/LoginEndpoint.hs
@@ -40,9 +40,9 @@ handleLoginPost :: LoginRequest -> Handler LoginResponse
 handleLoginPost req = do
   let
     input_password = password req
-    username = T.unpack $ user $ identifier req
+    username = user $ identifier req
 
-  maybe_user <- liftIO $ runDb $ getBy $ UniqueName $ T.pack username
+  maybe_user <- liftIO $ runDb $ getBy $ UniqueName $ username
 
   case maybe_user of
     Just (Entity _ db_user) -> do
@@ -50,8 +50,8 @@ handleLoginPost req = do
         Right hashedPasswordBytes -> 
           if validatePassword hashedPasswordBytes (T.encodeUtf8 input_password)
             then return $ LoginResponse
-              { user_id      = T.pack ("@" ++ username ++ ":localhost")
-              , access_token = T.pack ("dummy" ++ username)
+              { user_id      = T.concat ["@", username, ":localhost"]
+              , access_token = T.concat ["dummy", username]
               , home_server  = "localhost"
               , device_id    = "DUMMY"
               }
-- 
cgit v1.2.3