-gameLoop targetRound round word history =
- do whileM_ (do r <- readSTRef round
- return $ r /= targetRound )
- $ gameStep round word history
- return ()
+-- gameLoop targetRound round word history =
+-- do whileM_ (do r <- readSTRef round
+-- return $ r /= targetRound )
+-- $ gameStep round word history
+-- return ()
+
+-- gameLoop targetRound round word history =
+-- do whileM_ ((/= targetRound) <$> readSTRef round)
+-- $ gameStep round word history
+-- return ()