[commit: ghc] master: Outputable instance for IfaceVectInfo (ac1281f)

[git at git.haskell.org]

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

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

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

commit ac1281f723364580e883c8e0eeffebdad12bcd0c
Author: Mateusz Kowalczyk <fuuzetsu at fuuzetsu.co.uk>
Date:   Tue Nov 18 16:58:56 2014 +0000

    Outputable instance for IfaceVectInfo


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

ac1281f723364580e883c8e0eeffebdad12bcd0c
 compiler/main/HscTypes.lhs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index c676b98..4d1cccb 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -2514,6 +2514,16 @@ instance Outputable VectInfo where
              , ptext (sLit "parallel tycons :") <+> ppr (vectInfoParallelTyCons info)
              ]
 
+instance Outputable IfaceVectInfo where
+  ppr info = vcat
+             [ ptext (sLit "variables       :") <+> ppr (ifaceVectInfoVar            info)
+             , ptext (sLit "tycons          :") <+> ppr (ifaceVectInfoTyCon          info)
+             , ptext (sLit "tycons reuse    :") <+> ppr (ifaceVectInfoTyConReuse     info)
+             , ptext (sLit "parallel vars   :") <+> ppr (ifaceVectInfoParallelVars   info)
+             , ptext (sLit "parallel tycons :") <+> ppr (ifaceVectInfoParallelTyCons info)
+             ]
+
+
 instance Binary IfaceVectInfo where
     put_ bh (IfaceVectInfo a1 a2 a3 a4 a5) = do
         put_ bh a1