-- | Filters the supplied co-ordinates, returning only those which lie
-- within the supplied `Board`.
within :: Board p -> [(Int, Int)] -> [(Int, Int)]
within b = map repaCoordsToTuple . B.within b . map tupleToRepaCoords
within :: Board p -> [(Int, Int)] -> [(Int, Int)]
within b = map repaCoordsToTuple . B.within b . map tupleToRepaCoords
within b = map repaCoordsToTuple . B.within b . map tupleToRepaCoords