For one thing this is the right thing to do anyway, it's what other tools do.
Secondly it allows haddock to produce accurate source code links.
outHsLine :: SourcePos -> String
outHsLine (SourcePos name line) =
" hsc_line ("++show (line + 1)++", \""++
outHsLine :: SourcePos -> String
outHsLine (SourcePos name line) =
" hsc_line ("++show (line + 1)++", \""++
- showCString (snd (splitName name))++"\");\n"
+ showCString name++"\");\n"
showCString :: String -> String
showCString = concatMap showCChar
showCString :: String -> String
showCString = concatMap showCChar