From: simonpj@microsoft.com <unknown>
Date: Wed, 8 Sep 2010 15:05:10 +0000 (+0000)
Subject: Add Outputable instance for OccEncl
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=965782fa4a10ece58252c57a477bc851f06ef9d3;p=ghc-hetmet.git

Add Outputable instance for OccEncl
---

diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs
index 7ac45cc..22e042a 100644
--- a/compiler/simplCore/OccurAnal.lhs
+++ b/compiler/simplCore/OccurAnal.lhs
@@ -37,7 +37,7 @@ import UniqFM           ( keysUFM, intersectUFM_C, foldUFM_Directly )
 import Util             ( mapAndUnzip, filterOut )
 import Bag
 import Outputable
-
+import FastString
 import Data.List
 \end{code}
 
@@ -1090,6 +1090,10 @@ data OccEncl
   | OccVanilla          -- Argument of function, body of lambda, scruintee of case etc.
                         -- Do inline into constructor args here
 
+instance Outputable OccEncl where
+  ppr OccRhs     = ptext (sLit "occRhs")
+  ppr OccVanilla = ptext (sLit "occVanilla")
+
 type CtxtTy = [Bool]
         -- []           No info
         --