A bit more tc-tracing in TcTyClsDecls
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 21 Feb 2017 14:40:59 +0000 (14:40 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 21 Feb 2017 15:54:29 +0000 (15:54 +0000)
compiler/typecheck/TcTyClsDecls.hs

index 48a51ba..805120c 100644 (file)
@@ -147,6 +147,8 @@ tcTyClGroup (TyClGroup { group_tyclds = tyclds
   = do { let role_annots = mkRoleAnnotEnv roles
 
            -- Step 1: Typecheck the type/class declarations
+       ; traceTc "-------- tcTyClGroup ------------" empty
+       ; traceTc "Decls for" (ppr (map (tcdName . unLoc) tyclds))
        ; tyclss <- tcTyClDecls tyclds role_annots
 
            -- Step 1.5: Make sure we don't have any type synonym cycles