Commit 1e58ed87 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Add a couple of tcTraces around reify

parent 12698ff4
......@@ -948,7 +948,9 @@ getThing th_name
reify :: TH.Name -> TcM TH.Info
reify th_name
= do { thing <- getThing th_name
= do { traceTc "reify 1" (text (TH.showName th_name))
; thing <- getThing th_name
; traceTc "reify 2" (ppr thing)
; reifyThing thing }
lookupThName :: TH.Name -> TcM Name
......
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