From b5ec98622cc44d250819a6ef07fd878253ab34df Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Sun, 29 May 2011 18:45:51 -0700 Subject: [PATCH] extract_lty: remember to check the environment classifier --- compiler/parser/RdrHsSyn.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs index 5135c71..49036d9 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -122,7 +122,7 @@ extract_lty (L loc ty) acc HsAppTy ty1 ty2 -> extract_lty ty1 (extract_lty ty2 acc) HsListTy ty -> extract_lty ty acc HsPArrTy ty -> extract_lty ty acc - HsModalBoxType ecn ty -> extract_lty ty acc + HsModalBoxType ecn ty -> extract_lty ty (extract_tv loc ecn acc) HsTupleTy _ tys -> extract_ltys tys acc HsFunTy ty1 ty2 -> extract_lty ty1 (extract_lty ty2 acc) HsPredTy p -> extract_pred p acc -- 1.7.10.4