-- | Return a list of co-ordinates surrounding the supplied co-ordinates.
-- Co-ordinates that lie outside the boundaries of the passed `Board` are
-- filtered out.
surrounding :: Board p -> [(Int, Int)] -> [(Int, Int)]
surrounding b = map repaCoordsToTuple . B.surrounding b . map tupleToRepaCoords
surrounding :: Board p -> [(Int, Int)] -> [(Int, Int)]
surrounding b = map repaCoordsToTuple . B.surrounding b . map tupleToRepaCoords
surrounding b = map repaCoordsToTuple . B.surrounding b . map tupleToRepaCoords