-- |
-- Get whatever is at the given 'Position' on the board.
getPiece :: Board -> Position -> Maybe Piece
getPiece board pos = Map.lookup pos $ board&pieces
getPiece :: Board -> Position -> Maybe Piece
getPiece board pos = Map.lookup pos $ board&pieces
getPiece board pos = Map.lookup pos $ board&pieces