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.

1 files changed, 1 insertions, 1 deletions

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