From b6036ebb0becf102f4cf5fe0483aa88a39e784e1 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Tue, 18 Aug 2020 14:41:31 +0200
Subject: Refactor: remove print

---
 server/lib/Uplcg/Main/Server.hs | 1 -
 1 file changed, 1 deletion(-)

(limited to 'server/lib/Uplcg/Main/Server.hs')

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
-- 
cgit v1.2.3