X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnPat.lhs;h=061df0a706f1cdbb76985261823afacaa445f3aa;hp=a5d965d01a04031dd987bb55e8cb6bbadf25c6b1;hb=c24a860db326c7c1c7bab837b62147a984d5aecd;hpb=7e510d66ec67e4dabd213a60e6e75d4869f70e1c

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