-- | Query the Board to find which of the stones surrounding a list of coords
--   match the value of point.
matchingNeighbours :: Player p
                   => Board p -> Maybe p -> [(Int, Int)] -> [(Int, Int)]
matchingNeighbours b v = map repaCoordsToTuple
                       . B.matchingNeighbours b v
                       . map tupleToRepaCoords
matchingNeighbours :: Player p
                   => Board p -> Maybe p -> [(Int, Int)] -> [(Int, Int)]
matchingNeighbours b v = map repaCoordsToTuple
                       . B.matchingNeighbours b v
                       . map tupleToRepaCoords
matchingNeighbours b v = map repaCoordsToTuple
                       . B.matchingNeighbours b v
                       . map tupleToRepaCoords