From c1f6021bc6eb8e68fd2787a93eedfe4b7233e290 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 13 Apr 2005 14:44:51 +0000 Subject: [PATCH] [project @ 2005-04-13 14:44:51 by simonmar] preprocessFile: return the source filename rather than "" --- ghc/compiler/main/GHC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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', "", buf) + return (dflags', src_fn, buf) ----------------------------------------------------------------------------- -- 1.7.10.4