From 6fc2d621573e048b7ce2dabfc4887c7876055f8d Mon Sep 17 00:00:00 2001 From: David Mosbach Date: Wed, 31 Jan 2024 13:41:59 +0000 Subject: [PATCH] removed debuging print --- src/Server.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Server.hs b/src/Server.hs index b233fee..053070e 100644 --- a/src/Server.hs +++ b/src/Server.hs @@ -300,7 +300,6 @@ userListEndpoint = handleUserData where handleUserData :: Text -> Text -> AuthHandler user [userData] handleUserData jwtw userID = do - liftIO $ putStrLn "\nHOEHOEHOEHOEHOEHOHEHJBSDKFJBSDKGHBSDKGHBK\a\n" mAdmin <- verifyToken @user @userData jwtw unless (isJust mAdmin) . throwError $ err500 { errBody = "Unknown token" } -- TODO check if this user is allowed query other users