From: simonpj@microsoft.com <unknown>
Date: Wed, 10 Sep 2008 08:15:10 +0000 (+0000)
Subject: Rename a variable
X-Git-Tag: 2008-09-12~30
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cff03e1102c0e998c36c40c846eec73f06288b04

Rename a variable
---

diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index 18f3dd5..ac35fe5 100644
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -296,9 +296,9 @@ rnLPatAndThen var@(NM varf) (L loc p) cont =
               ; rnLPatsAndThen var pats $ \ patslist ->
                 lcont (TuplePat patslist boxed placeHolderType) }
 
-         TypePat name -> 
-           do { (name', fvs1) <- rnHsTypeFVs (text "In a type pattern") name
-	      ; (res, fvs2) <- lcont (TypePat name')
+         TypePat ty -> 
+           do { (ty', fvs1) <- rnHsTypeFVs (text "In a type pattern") ty
+	      ; (res, fvs2) <- lcont (TypePat ty')
 	      ; return (res, fvs1 `plusFV` fvs2) }
 
          p -> pprPanic "rnLPatAndThen" (ppr p)