From 2581f4b9a61d8ca4c782269886c30b3cc433d85d Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
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.
---
 Coalpit.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Coalpit.hs')

diff --git a/Coalpit.hs b/Coalpit.hs
index 78be85e..cd6e69b 100644
--- a/Coalpit.hs
+++ b/Coalpit.hs
@@ -29,7 +29,7 @@ main = do
   case 'fromArgs' 'defOpt' args of
     Left err -> do
       putStrLn err
-      putStrLn $ "Usage: " ++ 'usage' 'defOpt' (Proxy :: Proxy Foo)
+      putStrLn $ "Usage: " ++ 'usageString' 'defOpt' (Proxy :: Proxy Foo)
     Right x -> do
       print (x :: Foo)
       print $ 'toArgs' 'defOpt' x
-- 
cgit v1.2.3