From c24a860db326c7c1c7bab837b62147a984d5aecd Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 4 May 2008 01:17:33 +0000 Subject: [PATCH 1/1] Fix the stage 1 build --- compiler/rename/RnExpr.lhs | 4 +--- compiler/rename/RnPat.lhs | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) 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 -- 1.7.10.4