[commit: ghc] wip/nfs-locking: Add instance Show Stage. (d0095df)

[git at git.haskell.org]

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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/d0095df621aa39dfbe7f827e073c5b1fb7aa7b89/ghc

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

commit d0095df621aa39dfbe7f827e073c5b1fb7aa7b89
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sun Jan 11 21:45:31 2015 +0000

    Add instance Show Stage.


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

d0095df621aa39dfbe7f827e073c5b1fb7aa7b89
 src/Base.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Base.hs b/src/Base.hs
index b84b48c..169f556 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -24,6 +24,9 @@ import Data.List
 
 data Stage = Stage0 | Stage1 | Stage2 | Stage3 deriving (Eq, Enum)
 
+instance Show Stage where
+    show = show . fromEnum
+
 type Args = Action [String]
 
 type Condition = Action Bool