From: Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
Date: Sun, 22 Jan 2006 01:18:31 +0000 (+0000)
Subject: Make hsc2hs emit the full path name in {-# LINE #-} pagmas.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=95c7525626b8802ec21036a82037e933caf0b17f

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.
---

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