X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=3ba9df3ea795a51392d283a3f3215093f6ea858f;hb=292c077de7dbe98eb44911648f16e243b40db2ac;hp=467306c6032fe1da30ddf3354f99ea4c5c077a0b;hpb=8894fd8508fc5ac3b793187c323e4732a73b4a24;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 467306c..3ba9df3 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -14,7 +14,7 @@ import IO		( hPutStrLn, stderr )
 import HsSyn
 
 import StringBuffer	( hGetStringBuffer )
-import Parser		( parse )
+import Parser
 import Lex		( PState(..), ParseResult(..) )
 import SrcLoc		( mkSrcLoc )
 
@@ -263,7 +263,8 @@ myParseModule dflags src_filename
 
 	PFailed err -> do { hPutStrLn stderr (showSDoc err);
                             return Nothing };
-	POk _ rdr_module@(HsModule mod_name _ _ _ _ _ _) -> do {
+
+	POk _ (PModule rdr_module@(HsModule mod_name _ _ _ _ _ _)) -> do {
 
       dumpIfSet_dyn dflags Opt_D_dump_parsed "Parser" (ppr rdr_module) ;