From ffedfd5274a3545f2bc53bba7aa7ec3b4388edf1 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 11 Sep 2020 13:14:19 +0200
Subject: Add default card set

---
 server/lib/Uplcg/Main/Server.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(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 c0849fd..6527251 100644
--- a/server/lib/Uplcg/Main/Server.hs
+++ b/server/lib/Uplcg/Main/Server.hs
@@ -142,7 +142,7 @@ scottyApp server = Scotty.scottyApp $ do
 
     Scotty.matchAny "/rooms" $ do
         views <- liftIO $ roomViews server
-        let decks = HMS.keys $ serverCards server
+        let decks = serverCards server
 
         method <- Wai.requestMethod <$> Scotty.request
         mbCreatedRoom <- if method == HttpMethod.methodPost
@@ -205,7 +205,7 @@ parsePendingConnection pending =
 createRoom :: Server -> RoomId -> RoomPassword -> Deck -> IO Room
 createRoom server rid rpw deck = do
     cards <- maybe (fail "Deck not found") pure $
-        HMS.lookup deck (serverCards server)
+        HMS.lookup deck (csCards $ serverCards server)
     MVar.modifyMVar (serverRooms server) $ \rooms -> do
         case HMS.lookup rid rooms of
             Just _ -> fail "Room already exists"
-- 
cgit v1.2.3