From: Ian Lynagh <igloo@earth.li>
Date: Sun, 4 May 2008 01:17:33 +0000 (+0000)
Subject: Fix the stage 1 build
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c24a860db326c7c1c7bab837b62147a984d5aecd

Fix the stage 1 build
---

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index d29a634..3b85b3d 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -28,9 +28,7 @@ import TcRnMonad
 import RnEnv
 import RnTypes		( rnHsTypeFVs, 
 			  mkOpFormRn, mkOpAppRn, mkNegAppRn, checkSectionPrec)
-import RnPat            (rnQuasiQuote, rnOverLit, rnPatsAndThen_LocalRightwards, rnBindPat,
-                         localRecNameMaker, rnLit,
-			 rnHsRecFields_Con, rnHsRecFields_Update, checkTupSize)
+import RnPat
 import DynFlags		( DynFlag(..) )
 import BasicTypes	( FixityDirection(..) )
 import PrelNames	( thFAKE, hasKey, assertIdKey, assertErrorName,
diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index a5d965d..061df0a 100644
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -266,7 +266,7 @@ rnLPatAndThen var@(NM varf) (L loc p) cont =
 	      ; return (res, fvs_res `plusFV` fv_expr) }
 
 #ifndef GHCI
-         pat@(QuasiQuotePat _) -> pprPanic "Can't do QuasiQuotePat without GHCi" (ppr p)
+         (QuasiQuotePat _) -> pprPanic "Can't do QuasiQuotePat without GHCi" (ppr p)
 #else
          QuasiQuotePat qq -> do
              (qq', _) <- rnQuasiQuote qq