[commit: ghc] master: Add a couple of tcTraces around reify (1e58ed8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1e58ed87a161d1cbc84a1c073f30c09756fbcc78/ghc

>---------------------------------------------------------------

commit 1e58ed87a161d1cbc84a1c073f30c09756fbcc78
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Feb 10 21:07:43 2015 +0000

    Add a couple of tcTraces around reify


>---------------------------------------------------------------

1e58ed87a161d1cbc84a1c073f30c09756fbcc78
 compiler/typecheck/TcSplice.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcSplice.hs b/compiler/typecheck/TcSplice.hs
index 3928a98..f2efc93 100644
--- a/compiler/typecheck/TcSplice.hs
+++ b/compiler/typecheck/TcSplice.hs
@@ -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