diff options
Diffstat (limited to 'Types/Command.hs')
-rw-r--r-- | Types/Command.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Types/Command.hs b/Types/Command.hs index 6dbcf48d1..c5020d112 100644 --- a/Types/Command.hs +++ b/Types/Command.hs @@ -7,6 +7,8 @@ module Types.Command where +import Data.Ord + import Types {- A command runs in these stages. @@ -46,3 +48,10 @@ data Command = Command {- CommandCheck functions can be compared using their unique id. -} instance Eq CommandCheck where a == b = idCheck a == idCheck b + +instance Eq Command where + a == b = cmdname a == cmdname b + +{- Order commands by name -} +instance Ord Command where + compare = comparing cmdname |