Commit 7e7c296a authored by simonpj's avatar simonpj

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

Fix a type-error in desugaring TH code
parent 5b4f5a6a
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment