From: simonpj <unknown>
Date: Thu, 23 Oct 2003 08:06:48 +0000 (+0000)
Subject: [project @ 2003-10-23 08:06:48 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~336
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=045fa7c62e0e9e80f72bfbd830c9f0cd48e6fe18;p=ghc-hetmet.git

[project @ 2003-10-23 08:06:48 by simonpj]
Wibble for HsForAllTy
---

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'