Commit 7c603aba authored by Joachim Breitner's avatar Joachim Breitner
Browse files

Call Arity refactoring: instance Outputable Count

parent 983fbbe7
...@@ -16,6 +16,7 @@ import CoreSyn ...@@ -16,6 +16,7 @@ import CoreSyn
import Id import Id
import CoreArity ( exprArity, typeArity ) import CoreArity ( exprArity, typeArity )
import CoreUtils ( exprIsHNF ) import CoreUtils ( exprIsHNF )
import Outputable
import Control.Arrow ( first, second ) import Control.Arrow ( first, second )
...@@ -482,3 +483,6 @@ ltCallCount c1 c2 = c1 `lteCallCount` c2 && c1 /= c2 ...@@ -482,3 +483,6 @@ ltCallCount c1 c2 = c1 `lteCallCount` c2 && c1 /= c2
lubEnv :: CallArityEnv -> CallArityEnv -> CallArityEnv lubEnv :: CallArityEnv -> CallArityEnv -> CallArityEnv
lubEnv = plusVarEnv_C lubCallCount lubEnv = plusVarEnv_C lubCallCount
instance Outputable Count where
ppr Many = text "Many"
ppr OnceAndOnly = text "OnceAndOnly"
Supports Markdown
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