-- | Render a 'Location' as a 'String'.
showLoc :: Location -> String
showLoc (Location f n) = f ++ ":" ++ show n
showLoc :: Location -> String
showLoc (Location f n) = f ++ ":" ++ show n
showLoc (Location f n) = f ++ ":" ++ show n