Ticket #115 (closed defect: invalid)
showFilePath/showToken dodgy characters
|Reported by:||igloo||Owned by:|
showFilePath/showToken are defined with:
showFilePath :: FilePath -> Doc showFilePath = showToken showToken :: String -> Doc showToken str | not (any dodgy str) && not (null str) = text str | otherwise = text (show str) where dodgy c = isSpace c || c == ','
The dodgy function looks a bit incomplete to me; I'd have expected \ and " at least to be in there too, or better yet for non-dodgy characters to be what are listed.