1 files changed, 6 insertions, 1 deletions
diff --git a/Biz/Cli.hs b/Biz/Cli.hs
index b3c7583..819fdf1 100644
--- a/Biz/Cli.hs
+++ b/Biz/Cli.hs
@@ -10,7 +10,7 @@ module Biz.Cli
     Docopt.docopt,
     Docopt.getAllArgs,
     Docopt.getArg,
-    Docopt.getArgWithDefault,
+    getArgWithDefault,
     Docopt.longOption,
     Docopt.shortOption,
     Docopt.command,
@@ -44,3 +44,8 @@ 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 ""