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