diff options
| author | Jasper Van der Jeugt | 2020-08-18 14:41:31 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt | 2020-08-18 14:41:31 +0200 |
| commit | b6036ebb0becf102f4cf5fe0483aa88a39e784e1 (patch) | |
| tree | 72f72b57b8b4e8fb9543121b66d9e979ec0029b1 | |
| parent | 50abccd8a4243c561cc39c54f84ddfaae8c73120 (diff) | |
Refactor: remove print
| -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 |