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/Pipes.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'examples/Pipes.hs') 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 $ -- cgit v1.2.3