[project @ 2005-04-13 14:44:51 by simonmar]

preprocessFile: return the source filename rather than "<buffer>"

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index d907884..5c8a5b8 100644 (file)
--- a/ghc/compiler/main/GHC.hs
+++ b/ghc/compiler/main/GHC.hs
@@ -1402,7 +1402,7 @@ preprocessFile dflags src_fn (Just (buf, time))
        when needs_preprocessing $
           ghcError (ProgramError "buffer needs preprocesing; interactive check disabled")
 
-       return (dflags', "<buffer>", buf)
+       return (dflags', src_fn, buf)
 
 
 -----------------------------------------------------------------------------