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

Fix a type-error in desugaring TH code

[project @ 2003-02-21 12:16:05 by simonpj]
Fix a type-error in desugaring TH code
7e7c296a · simonpj · 5b4f5a6a · 7e7c296a
Commit 7e7c296a authored Feb 21, 2003 by simonpj
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

ghc/compiler/deSugar/DsMeta.hs ghc/compiler/deSugar/DsMeta.hs +3 -1

No files found.
--- 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