Call Arity refactoring: instance Outputable Count
authorJoachim Breitner <mail@joachim-breitner.de>
Tue, 18 Feb 2014 10:53:15 +0000 (10:53 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Tue, 18 Feb 2014 14:50:37 +0000 (14:50 +0000)
compiler/simplCore/CallArity.hs

index f7da6c9..b1ad34e 100644 (file)
@@ -16,6 +16,7 @@ import CoreSyn
 import Id
 import CoreArity ( exprArity, typeArity )
 import CoreUtils ( exprIsHNF )
+import Outputable
 
 import Control.Arrow ( first, second )
 
@@ -482,3 +483,6 @@ ltCallCount c1 c2 = c1 `lteCallCount` c2 && c1 /= c2
 lubEnv :: CallArityEnv -> CallArityEnv -> CallArityEnv
 lubEnv = plusVarEnv_C lubCallCount
 
+instance Outputable Count where
+    ppr Many        = text "Many"
+    ppr OnceAndOnly = text "OnceAndOnly"