yourTurn :: Board -> String
yourTurn board = "It is " ++ playerToString (whoseTurn board) : "'s turn"
yourTurn :: Board -> String
yourTurn board = "It is " ++ playerToString (whoseTurn board) : "'s turn"
yourTurn board = "It is " ++ playerToString (whoseTurn board) : "'s turn"