[commit: ghc] master: Call Arity refactoring: instance Outputable Count (7c603ab)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7c603aba2f2ec608d30bb4fdd4b657c5bf684122/ghc

>---------------------------------------------------------------

commit 7c603aba2f2ec608d30bb4fdd4b657c5bf684122
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Feb 18 10:53:15 2014 +0000

    Call Arity refactoring: instance Outputable Count


>---------------------------------------------------------------

7c603aba2f2ec608d30bb4fdd4b657c5bf684122
 compiler/simplCore/CallArity.hs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/simplCore/CallArity.hs b/compiler/simplCore/CallArity.hs
index f7da6c9..b1ad34e 100644
--- a/compiler/simplCore/CallArity.hs
+++ b/compiler/simplCore/CallArity.hs
@@ -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"