From 7d128d0f8d8e657cdad4b9e422aa4650111c77cf Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 10 Jul 2007 23:33:08 +0000 Subject: [PATCH] Alpha-rename a variable --- compiler/rename/RnTypes.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/rename/RnTypes.lhs b/compiler/rename/RnTypes.lhs index 15f4daf..82c7367 100644 --- a/compiler/rename/RnTypes.lhs +++ b/compiler/rename/RnTypes.lhs @@ -572,9 +572,9 @@ rnPat (VarPat name) returnM (VarPat vname, emptyFVs) rnPat (SigPatIn pat ty) - = doptM Opt_PatternSignatures `thenM` \ glaExts -> + = doptM Opt_PatternSignatures `thenM` \ patsigs -> - if glaExts + if patsigs then rnLPat pat `thenM` \ (pat', fvs1) -> rnHsTypeFVs doc ty `thenM` \ (ty', fvs2) -> returnM (SigPatIn pat' ty', fvs1 `plusFV` fvs2) -- 1.7.10.4