Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
965782fa
Commit
965782fa
authored
Sep 08, 2010
by
simonpj@microsoft.com
Browse files
Add Outputable instance for OccEncl
parent
5126e7cd
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/simplCore/OccurAnal.lhs
View file @
965782fa
...
...
@@ -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
--
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment