[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 (file)
--- 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