projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
5126e7c
)
Add Outputable instance for OccEncl
author
simonpj@microsoft.com
<unknown>
Wed, 8 Sep 2010 15:05:10 +0000
(15:05 +0000)
committer
simonpj@microsoft.com
<unknown>
Wed, 8 Sep 2010 15:05:10 +0000
(15:05 +0000)
compiler/simplCore/OccurAnal.lhs
patch
|
blob
|
history
diff --git
a/compiler/simplCore/OccurAnal.lhs
b/compiler/simplCore/OccurAnal.lhs
index
7ac45cc
..
22e042a
100644
(file)
--- 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
--