absLocDist :: Location -> Location -> LocDistance
absLocDist (Location l1) (Location l2) = LocDistance $ (min d (1 - d)) where
  d = if l1 > l2 then l1 - l2 else l2 - l1
absLocDist :: Location -> Location -> LocDistance
absLocDist (Location l1) (Location l2) = LocDistance $ (min d (1 - d)) where
  d = if l1 > l2 then l1 - l2 else l2 - l1
absLocDist (Location l1) (Location l2) = LocDistance $ (min d (1 - d)) where
  d = if l1 > l2 then l1 - l2 else l2 - l1