bump :: Char -> String -> Location -> Location
bump '\n' xs (Location d _ ) = Location (d <> delta '\n') xs
bump :: Char -> String -> Location -> Location
bump '\n' xs (Location d _ ) = Location (d <> delta '\n') xs
bump '\n' xs (Location d _ ) = Location (d <> delta '\n') xs