-- |
-- Get all the 'Position's that are within a board
allPositions :: Board -> Set.Set Position
allPositions board = Set.fromList [(x, y) | x <- [0..width-1], y <- [0..height-1]]
    where (width, height) = board&size

-- |
-- Get all the 'Position's that are within a board and that haven't been already
-- occupied.
allPositions :: Board -> Set.Set Position
allPositions board = Set.fromList [(x, y) | x <- [0..width-1], y <- [0..height-1]]
    where (width, height) = board&size

-- |
-- Get all the 'Position's that are within a board and that haven't been already
-- occupied.
allPositions board = Set.fromList [(x, y) | x <- [0..width-1], y <- [0..height-1]]
    where (width, height) = board&size

-- |
-- Get all the 'Position's that are within a board and that haven't been already
-- occupied.