From 7e7c296af4d58fc1ae5d243ff1aa7d55cb1dcc23 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 21 Feb 2003 12:16:05 +0000
Subject: [PATCH] [project @ 2003-02-21 12:16:05 by simonpj] Fix a type-error
 in desugaring TH code

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

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
-- 
1.7.10.4