-- | Return a list of co-ordinates surrounding the given co-ordinate.
neighbours :: (Int, Int) -> [(Int, Int)]
neighbours = map repaCoordsToTuple . B.neighbours . tupleToRepaCoords
neighbours :: (Int, Int) -> [(Int, Int)]
neighbours = map repaCoordsToTuple . B.neighbours . tupleToRepaCoords
neighbours = map repaCoordsToTuple . B.neighbours . tupleToRepaCoords