Commit c24a860d authored by Ian Lynagh's avatar Ian Lynagh

Fix the stage 1 build

parent 7e510d66
......@@ -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,
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment