From: simonpj <unknown>
Date: Fri, 21 Feb 2003 12:16:05 +0000 (+0000)
Subject: [project @ 2003-02-21 12:16:05 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1118
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7e7c296af4d58fc1ae5d243ff1aa7d55cb1dcc23;p=ghc-hetmet.git

[project @ 2003-02-21 12:16:05 by simonpj]
Fix a type-error in desugaring TH code
---

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index 045afbe..e655635 100644
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -158,7 +158,9 @@ repTopDs group
 
 	decl_ty <- lookupType declTyConName ;
 	let { core_list = coreList' decl_ty decls } ;
-	q_decs  <- repSequenceQ decl_ty core_list ;
+
+	dec_ty <- lookupType decTyConName ;
+	q_decs  <- repSequenceQ dec_ty core_list ;
 
 	wrapNongenSyms ss q_decs
 	-- Do *not* gensym top-level binders