From bfd854e05207a073eaa983c49f27c37555ccfce5 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 26 Jun 2015 23:02:09 +0200 Subject: bump compatibility to nixos-15.06pre64030.e1af50c --- test5.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test5.hs') 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 -- cgit v1.2.3