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, 1 insertions, 6 deletions
diff --git a/Biz/Cli.hs b/Biz/Cli.hs
index 819fdf1..b3c7583 100644
--- a/Biz/Cli.hs
+++ b/Biz/Cli.hs
@@ -10,7 +10,7 @@ module Biz.Cli
Docopt.docopt,
Docopt.getAllArgs,
Docopt.getArg,
- getArgWithDefault,
+ Docopt.getArgWithDefault,
Docopt.longOption,
Docopt.shortOption,
Docopt.command,
@@ -44,8 +44,3 @@ main Plan {..} =
has :: Docopt.Arguments -> Docopt.Option -> Bool
has = Docopt.isPresent
-
--- | This ignores the second argument because the default should come from the
--- USAGE text with [default: x].
-getArgWithDefault :: Docopt.Arguments -> Docopt.Option -> String
-getArgWithDefault args = Docopt.getArgWithDefault args ""