X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2FRdrHsSyn.lhs;h=b4d0e85a84ba493eafb68c5558332ba27e6f682c;hb=6ee9554a738c442719ded861504acb729fd3d431;hp=64de0f5fe37d8e3cfc4bf5b39222990e9c0aa367;hpb=f2fdfdb0616f3da27b3d27d2e3caacf976a36d64;p=ghc-hetmet.git

diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs
index 64de0f5..b4d0e85 100644
--- a/compiler/parser/RdrHsSyn.lhs
+++ b/compiler/parser/RdrHsSyn.lhs
@@ -706,7 +706,7 @@ checkAPat loc e = case e of
    
    -- n+k patterns
    OpApp (L nloc (HsVar n)) (L _ (HsVar plus)) _ 
-	(L _ (HsOverLit lit@(HsIntegral _ _ _)))
+	 (L _ (HsOverLit lit@(OverLit {ol_val = HsIntegral {}})))
    		      | plus == plus_RDR
    		      -> return (mkNPlusKPat (L nloc n) lit)