From: simonmar <unknown>
Date: Wed, 13 Apr 2005 14:44:51 +0000 (+0000)
Subject: [project @ 2005-04-13 14:44:51 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~744
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c1f6021bc6eb8e68fd2787a93eedfe4b7233e290;p=ghc-hetmet.git

[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
--- 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)
 
 
 -----------------------------------------------------------------------------