summaryrefslogtreecommitdiff
path: root/Biz/Cli.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Biz/Cli.hs')
-rw-r--r--Biz/Cli.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Biz/Cli.hs b/Biz/Cli.hs
index 8398399..c144a72 100644
--- a/Biz/Cli.hs
+++ b/Biz/Cli.hs
@@ -24,13 +24,14 @@ import qualified System.Environment as Environment
import qualified Test.Tasty as Tasty
import qualified Test.Tasty.Runners as Tasty
-data Plan = Plan
+data Plan cfg = Plan
{ help :: Docopt.Docopt,
move :: Docopt.Arguments -> IO (),
- test :: Tasty.TestTree
+ test :: Tasty.TestTree,
+ tidy :: cfg -> IO ()
}
-main :: Plan -> IO ()
+main :: Plan cfg -> IO ()
main Plan {..} =
Environment.getArgs
+> Docopt.parseArgsOrExit help