-- | Return the territorial status of the passed position, alongside the
-- chain of which it is a member.
territory :: Player p => Board p -> (Int, Int) -> (Territory p, [(Int, Int)])
territory b = second (map repaCoordsToTuple) . B.territory b . tupleToRepaCoords
territory :: Player p => Board p -> (Int, Int) -> (Territory p, [(Int, Int)])
territory b = second (map repaCoordsToTuple) . B.territory b . tupleToRepaCoords
territory b = second (map repaCoordsToTuple) . B.territory b . tupleToRepaCoords