git.iko.soy/typeable/yaml
on master help sign in
For `optparse-applicative-0.18`: use `pretty` instead of `text`

Fixes #215

commit105ddd395cd85208e830ff6b0f2986f04831dc72 authorAndreas Abel <andreas.abel@ifi.lmu.de> dateFri 9 Jun 2023, 22:36 (3 years ago) parentfe1c64a
2 files changed+5−5
compare with master
unifiedsplit
yaml/exe/json2yaml.hs+3−3 yaml/exe/yaml2json.hs+2−2
yaml/exe/json2yaml.hs+3−3
@@ -15,7 +15,7 @@ import Options.Applicative
1515 , long, metavar, short, strArgument, strOption, value
1616 )
1717import Options.Applicative.Help.Pretty
18− ( vcat, text )
18+ ( vcat, pretty )
1919
2020import System.Exit ( die )
2121
@@ -43,11 +43,11 @@ options =
4343 <> footerDoc fdoc
4444
4545 where
46− hdoc = Just $ vcat $ map text
46+ hdoc = Just $ vcat $ map pretty
4747 [ versionText self
4848 , "Convert JSON to YAML."
4949 ]
50− fdoc = Just $ text $ concat
50+ fdoc = Just $ pretty $ concat
5151 [ "The old call pattern '"
5252 , self
5353 , " IN OUT' is also accepted, but deprecated."
yaml/exe/yaml2json.hs+2−2
@@ -17,7 +17,7 @@ import Options.Applicative
1717 , long, metavar, short, strArgument, strOption, value
1818 )
1919import Options.Applicative.Help.Pretty
20− ( vcat, text )
20+ ( vcat, pretty )
2121
2222import Common
2323 ( versionText, versionOption, numericVersionOption, dashToNothing )
@@ -43,7 +43,7 @@ options =
4343 (headerDoc hdoc)
4444
4545 where
46− hdoc = Just $ vcat $ map text
46+ hdoc = Just $ vcat $ map pretty
4747 [ versionText self
4848 , "Convert YAML to JSON."
4949 ]