From 2581f4b9a61d8ca4c782269886c30b3cc433d85d Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 24 Dec 2017 07:12:59 +0300 Subject: Introduce 'Usage' structure. Produce it with 'argHelper' first, then translate into a string -- so that it can be reused for other kinds of output, such as roff and texinfo. --- examples/Basic.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/Basic.hs') diff --git a/examples/Basic.hs b/examples/Basic.hs index a08730d..13ee95d 100644 --- a/examples/Basic.hs +++ b/examples/Basic.hs @@ -38,8 +38,8 @@ help = do [ let opts = defOpt { alwaysUseSelName = ausn , omitNamedOptions = ono } in ( (ausn, ono) - , showDSV opts [Test [1,2,3] vals] - , argHelper opts [] (Proxy :: Proxy Test)) + , showDSV opts (Test [1,2,3] vals) + , usageString opts (Proxy :: Proxy Test)) | ausn <- [True, False] , ono <- [True, False] , vals <- [Just "a string", Nothing]] -- cgit v1.2.3