publish info on game start

2019-08-28 17:24:06 +02:00
parent 7138f74e8e
commit 255971b2f5
2 changed files with 8 additions and 2 deletions
@@ -22,4 +22,4 @@ singleVsBots mkPlayer = do
                (PL $ Stupid Team Hand2)
                (PL $ mkAIEnv Single Hand3 10)
        env = SkatEnv (distribute cards) Nothing Spades ps
-    liftIO $ evalStateT (turn Hand1 >>= publishGameResults) env
+    liftIO $ evalStateT (publishGameStart Hand3 >> turn Hand1 >>= publishGameResults) env