Commit d0095df6 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Add instance Show Stage.

parent d956739d
...@@ -24,6 +24,9 @@ import Data.List ...@@ -24,6 +24,9 @@ import Data.List
data Stage = Stage0 | Stage1 | Stage2 | Stage3 deriving (Eq, Enum) data Stage = Stage0 | Stage1 | Stage2 | Stage3 deriving (Eq, Enum)
instance Show Stage where
show = show . fromEnum
type Args = Action [String] type Args = Action [String]
type Condition = Action Bool type Condition = Action Bool
......
Markdown is supported
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