summaryrefslogtreecommitdiffstats
path: root/test5.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-06-26 23:02:09 +0200
committertv <tv@shackspace.de>2015-06-26 23:02:09 +0200
commitbfd854e05207a073eaa983c49f27c37555ccfce5 (patch)
treef932957a7180423f4fc387a12d17b251c0b67684 /test5.hs
parentcd4a939f40b41ef624fca9615d9fa285d5046e29 (diff)
bump compatibility to nixos-15.06pre64030.e1af50c
Diffstat (limited to 'test5.hs')
-rw-r--r--test5.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/test5.hs b/test5.hs
index 2fc7f09..6ef1494 100644
--- a/test5.hs
+++ b/test5.hs
@@ -35,11 +35,10 @@ import RenderTreeView (renderTreeView)
import Scanner (scan)
import Safe
import System.Directory
-import System.Console.Docopt (getArgWithDefault, optionsWithUsage, shortOption)
+import System.Console.Docopt.NoTH (getArgWithDefault, parseArgsOrExit, parseUsageOrExit, shortOption)
import System.Environment
import System.Exit
import System.IO
-import System.Locale (defaultTimeLocale, rfc822DateFormat)
import System.Posix.Signals
import System.Process
import TagUtils
@@ -115,7 +114,8 @@ main =
mainWithArgs :: [String] -> IO ()
mainWithArgs args = do
- args' <- optionsWithUsage usage args
+ usage' <- parseUsageOrExit usage
+ args' <- parseArgsOrExit usage' args
let query = getArgWithDefault args' defaultSearch (shortOption 'q')
bracket (initState query) cleanup startup
where