scaleDist :: LocDistance -> Rational -> LocDistance
scaleDist (LocDistance d) f
  | f > 1     = error "scaleDist: factor > 1"
  | otherwise = LocDistance $ d * f
scaleDist :: LocDistance -> Rational -> LocDistance
scaleDist (LocDistance d) f
  | f > 1     = error "scaleDist: factor > 1"
  | otherwise = LocDistance $ d * f
scaleDist (LocDistance d) f
  | f > 1     = error "scaleDist: factor > 1"
  | otherwise = LocDistance $ d * f