Commit 965782fa authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Add Outputable instance for OccEncl

parent 5126e7cd
......@@ -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
--
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment