diff options
| -rw-r--r-- | server/lib/Uplcg/Main/Server.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/server/lib/Uplcg/Main/Server.hs b/server/lib/Uplcg/Main/Server.hs index 1672d84..295b736 100644 --- a/server/lib/Uplcg/Main/Server.hs +++ b/server/lib/Uplcg/Main/Server.hs @@ -167,7 +167,6 @@ scottyApp server = Scotty.scottyApp $ do case roomPassword room of RoomPassword actual -> do mbGiven <- getPassword - liftIO $ print mbGiven case mbGiven of Just given | given == actual -> Scotty.html . renderHtml $ Views.client ridt $ Just actual |