For optparse-applicative-0.18: use pretty instead of text

Fixes #215
snoyberg · Jun 9, 2023 · 105ddd3 · 105ddd3
1 parent fe1c64a
commit 105ddd3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/yaml/exe/json2yaml.hs b/yaml/exe/json2yaml.hs
@@ -15,7  15,7 @@ import Options.Applicative
   , long, metavar, short, strArgument, strOption, value
   )
 import Options.Applicative.Help.Pretty
-  ( vcat, text )
   ( vcat, pretty )
 
 import System.Exit    ( die )
 
@@ -43,11  43,11 @@ options =
       <> footerDoc fdoc
 
   where
-  hdoc = Just $ vcat $ map text
   hdoc = Just $ vcat $ map pretty
     [ versionText self
     , "Convert JSON to YAML."
     ]
-  fdoc = Just $ text $ concat
   fdoc = Just $ pretty $ concat
     [ "The old call pattern '"
     , self
     , " IN OUT' is also accepted, but deprecated."

diff --git a/yaml/exe/yaml2json.hs b/yaml/exe/yaml2json.hs
@@ -17,7  17,7 @@ import Options.Applicative
   , long, metavar, short, strArgument, strOption, value
   )
 import Options.Applicative.Help.Pretty
-  ( vcat, text )
   ( vcat, pretty )
 
 import Common
   ( versionText, versionOption, numericVersionOption, dashToNothing )
@@ -43,7  43,7 @@ options =
          (headerDoc hdoc)
 
   where
-  hdoc = Just $ vcat $ map text
   hdoc = Just $ vcat $ map pretty
     [ versionText self
     , "Convert YAML to JSON."
     ]