From 592b40489bc4e333d4434f841393083b01ed7ab6 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 29 Oct 2008 13:01:14 +0000
Subject: [PATCH] Add Outputable instance for CoercionI

---
 compiler/types/Coercion.lhs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/types/Coercion.lhs b/compiler/types/Coercion.lhs
index 59a1a15..b247a3f 100644
--- a/compiler/types/Coercion.lhs
+++ b/compiler/types/Coercion.lhs
@@ -576,6 +576,10 @@ coreEqCoercion = coreEqType
 -- 2. The identity coercion
 data CoercionI = IdCo | ACo Coercion
 
+instance Outputable CoercionI where
+  ppr IdCo     = ptext (sLit "IdCo")
+  ppr (ACo co) = ppr co
+
 isIdentityCoercion :: CoercionI -> Bool
 isIdentityCoercion IdCo = True
 isIdentityCoercion _    = False
-- 
1.7.10.4