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