From 517b640872fa1266eef80d241870c72a83740f5b Mon Sep 17 00:00:00 2001 From: Fabien Boucher Date: Sun, 5 Jan 2025 16:53:05 +0100 Subject: [PATCH] optparse-applicative-0.18 - use `pretty` instead of removed `string` function --- src/CLI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/CLI.hs b/src/CLI.hs index 855c5c14c..2afd37915 100644 --- a/src/CLI.hs +++ b/src/CLI.hs @@ -29,7 +29,7 @@ import Monocle.Search.Query (parseDateValue) import Monocle.Version qualified import Options.Applicative hiding (header, help, str) import Options.Applicative qualified as O -import Options.Applicative.Help.Pretty (string) +import Options.Applicative.Help.Pretty (pretty) import Streaming.Prelude qualified as S import Data.String.Interpolate (i) @@ -91,7 +91,7 @@ usage = usageCrawlerEnv = (,,) <$> envConf <*> envPublicUrl <*> envMonitoring -- Helper to create sub command - mkEnvDoc envParser = string (Env.helpDoc envParser) + mkEnvDoc envParser = pretty (Env.helpDoc envParser) mkCommand doc name parser envParser = command name $ info (parser <**> helper) (progDesc doc <> extraHelp) where -- We only add `--help` to sub command which uses environment