X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscTypes.lhs;h=1d6e3719d9f60d7ec5efaa106f22cb48300ad980;hb=0075a4cd7eb75a28b4978255e696a9a583172355;hp=e7f639d33ddb51ab6de351e634edf6d301af4b3d;hpb=2ecf1c9f639dc75f1078e88c2e551116923f742a;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index e7f639d..1d6e371 100644
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -87,9 +87,9 @@ import UniqSupply	( UniqSupply )
 \begin{code}
 data ModuleLocation
    = ModuleLocation {
-	hs_file  :: FilePath,
-	hi_file  :: FilePath,
-	obj_file :: FilePath
+	hs_preprocd_file :: FilePath,	-- location after preprocessing
+	hi_file          :: FilePath,
+	obj_file         :: FilePath
      }
      deriving Show