@@ -15,7 +15,7 @@
1515
1616module Directive where
1717
18−import Data.List (isPrefixOf)
18+import Data.List (nub, isPrefixOf)
1919
2020data Directive
2121 = Help
@@ -27,6 +27,7 @@ data Directive
2727 | Type
2828 | Kind
2929 | Show
30+ deriving Eq
3031
3132-- |
3233-- Maps given directive relating command strings.
@@ -78,4 +79,4 @@ help =
7879-- List of all avaliable directives.
7980--
8081directives :: [Directive]
81−directives = map (\(dir, _, _) -> dir) help
82+directives = nub . map (\(dir, _, _) -> dir) $ help