-- |
-- Put a 'Piece' at the given 'Position' on the board.
putPiece :: Board -> Position -> Piece -> Board
putPiece board pos piece = board {pieces = Map.insert pos piece $ board&pieces}
putPiece :: Board -> Position -> Piece -> Board
putPiece board pos piece = board {pieces = Map.insert pos piece $ board&pieces}
putPiece board pos piece = board {pieces = Map.insert pos piece $ board&pieces}