X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.lhs;h=9702944659e4c1279cf9af483e704334aeae05bc;hb=06619533d2e402ec10eaec3752c76d310565d0fc;hp=dc2a2cc19406e9363bdce46c36cbd67df2477d4e;hpb=2c64208b297bea6f102d42df65d39d805b0b234d;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index dc2a2cc..9702944 100644
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -74,7 +74,7 @@ parseModule = do
 		ghcExit 1
 		return (error "parseModule") -- just to get the types right
 
-	POk _ m@(HsModule mod _ _ _ _ _) -> 
+	POk _ m@(HsModule mod _ _ _ _ _ _) -> 
 		return (mod, m)
   where
 	glaexts | opt_GlasgowExts = 1#
@@ -222,7 +222,7 @@ doIt (core_cmds, stg_cmds)
 	then \ what -> hPutStr stderr ("*** "++what++":\n")
 	else \ what -> return ()
 
-ppSourceStats short (HsModule name version exports imports decls src_loc)
+ppSourceStats short (HsModule name version exports imports decls _ src_loc)
  = (if short then hcat else vcat)
         (map pp_val
 	       [("ExportAll        ", export_all), -- 1 if no export list