From 95c7525626b8802ec21036a82037e933caf0b17f Mon Sep 17 00:00:00 2001 From: Duncan Coutts Date: Sun, 22 Jan 2006 01:18:31 +0000 Subject: [PATCH] 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. --- ghc/utils/hsc2hs/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs index e8b759e..4b39e4a 100644 --- a/ghc/utils/hsc2hs/Main.hs +++ b/ghc/utils/hsc2hs/Main.hs @@ -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 -- 1.7.10.4