Commit 47e59265 authored by Neil Smith's avatar Neil Smith
Browse files

More loop cleaning

parent a3256d3f
......@@ -25,10 +25,10 @@ runGame seed roundsNeeded =
gameLoop roundsNeeded round word history
readSTRef word
gameLoop targetRound round word history =
do gameStep round word history
`untilM_` ((== targetRound) <$> readSTRef round)
return ()
-- gameLoop targetRound round word history =
-- do gameStep round word history
-- `untilM_` ((== targetRound) <$> readSTRef round)
-- return ()
-- gameLoop targetRound round word history =
-- do ( gameStep round word history
......@@ -55,10 +55,10 @@ gameLoop targetRound round word history =
-- $ gameStep round word history
-- return ()
-- gameLoop targetRound round word history =
-- do whileM_ ((/= targetRound) <$> readSTRef round)
-- $ gameStep round word history
-- return ()
gameLoop targetRound round word history =
do whileM_ ((/= targetRound) <$> readSTRef round)
$ gameStep round word history
return ()
seedGame seed historySize =
do round <- newSTRef $ length seed
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment