-- |
-- Determines if the shortes path on the circle goes to the right.
rightOf :: Location -> Location -> Bool
rightOf (Location l1) (Location l2)
  | l1 < l2   = l2 - l1 >= (1 % 2) 
  | otherwise = l1 - l2 <  (1 % 2)
rightOf :: Location -> Location -> Bool
rightOf (Location l1) (Location l2)
  | l1 < l2   = l2 - l1 >= (1 % 2) 
  | otherwise = l1 - l2 <  (1 % 2)
rightOf (Location l1) (Location l2)
  | l1 < l2   = l2 - l1 >= (1 % 2) 
  | otherwise = l1 - l2 <  (1 % 2)