diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-11-18 16:58:56 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-11-18 16:59:39 +0000 |
| commit | ac1281f723364580e883c8e0eeffebdad12bcd0c (patch) | |
| tree | 175c06180c8f2423dfae8f41f6994a83dfd7635c | |
| parent | 20226c2ae8e95fad828ab1df97d993a717e2e788 (diff) | |
| download | haskell-ac1281f723364580e883c8e0eeffebdad12bcd0c.tar.gz | |
Outputable instance for IfaceVectInfo
| -rw-r--r-- | compiler/main/HscTypes.lhs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs index c676b9876a..4d1cccb02e 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 |