Commit 95c75256 authored by's avatar
Browse files

Make hsc2hs emit the full path name in {-# LINE #-} pagmas.

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.
parent c1ae3106
......@@ -871,7 +871,7 @@ outCLine (SourcePos name line) =
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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment