serialization of piles

2020-04-04 00:23:14 +02:00
parent a7824bebea
commit 1c3f85b9a6
9 changed files with 125 additions and 11 deletions
@@ -33,10 +33,10 @@ match prepEnv = do
            let res = getResults
                    (game skatEnv)
                    sglPlayer
-                    (Skat.piles skatEnv)
+                    (Skat.Preperation.piles prepEnv)
                    (Skat.piles finished)
            publishGameResults res (bidders prepEnv)
-            return $ Just $ Match (Skat.piles skatEnv) res tricks sglPlayer
+            return $ Just $ Match (Skat.Preperation.piles prepEnv) res tricks sglPlayer
        Nothing -> putStrLn "no one wanted to play" >> return Nothing

 -- | predefined card distribution for testing purposes