From 045fa7c62e0e9e80f72bfbd830c9f0cd48e6fe18 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 23 Oct 2003 08:06:48 +0000
Subject: [PATCH] [project @ 2003-10-23 08:06:48 by simonpj] Wibble for
 HsForAllTy

---
 ghc/compiler/deSugar/DsMeta.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index ffb6b13..71ba65c 100644
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -377,8 +377,8 @@ repTys tys = mapM repTy tys
 -- represent a type
 --
 repTy :: HsType Name -> DsM (Core M.TypeQ)
-repTy (HsForAllTy bndrs ctxt ty)  = 
-  addTyVarBinds (fromMaybe [] bndrs) $ \bndrs' -> do
+repTy (HsForAllTy _ bndrs ctxt ty)  = 
+  addTyVarBinds bndrs $ \bndrs' -> do
     ctxt'  <- repContext ctxt
     ty'    <- repTy ty
     repTForall (coreList' stringTy bndrs') ctxt' ty'
-- 
1.7.10.4