[project @ 2003-02-21 12:16:05 by simonpj]

Fix a type-error in desugaring TH code

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