diff options
| author | defanor <defanor@uberspace.net> | 2017-12-24 07:12:59 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-12-24 07:12:59 +0300 |
| commit | 2581f4b9a61d8ca4c782269886c30b3cc433d85d (patch) | |
| tree | ccdcb609ab9247706cbc012e2bf8abb47a3678af /examples | |
| parent | 1d68da2eb258a1f426184989832208c75cac1f50 (diff) | |
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.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/Basic.hs | 4 | ||||
| -rw-r--r-- | examples/Pipes.hs | 3 |
2 files changed, 4 insertions, 3 deletions
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]] diff --git a/examples/Pipes.hs b/examples/Pipes.hs index 7b50f93..b1096e3 100644 --- a/examples/Pipes.hs +++ b/examples/Pipes.hs @@ -37,7 +37,8 @@ runMain :: forall m a i o. (MonadIO m, Coalpit a, Coalpit i, Coalpit o) -> m () runMain e f = do pn <- liftIO getProgName - let u = Prelude.concat ["Usage: ", pn, " ", usage defOpt (Proxy :: Proxy a)] + let u = Prelude.concat [ "Usage: ", pn, " " + , usageString defOpt (Proxy :: Proxy a)] args <- liftIO getArgs a <- either (liftIO . die . (++ u)) pure $ fromArgs defOpt args runEffect $ |