diff options
author | tv <tv@shackspace.de> | 2015-06-26 23:02:09 +0200 |
---|---|---|
committer | tv <tv@shackspace.de> | 2015-06-26 23:02:09 +0200 |
commit | bfd854e05207a073eaa983c49f27c37555ccfce5 (patch) | |
tree | f932957a7180423f4fc387a12d17b251c0b67684 /test5.hs | |
parent | cd4a939f40b41ef624fca9615d9fa285d5046e29 (diff) |
bump compatibility to nixos-15.06pre64030.e1af50c
Diffstat (limited to 'test5.hs')
-rw-r--r-- | test5.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |