ShouldIUseReader.hs

1
2
3
4
5
takeTurn :: PlayerNumber -> GameState -> IO GameState
takeTurn p g = do
  print $ publicState g
  print $ handFor p g
  updateGame p <$> chooseCard p g <*> chooseFlag g <*> pure g