From 013a1647a7c78e92b12c2ae520699ef7a567029a Mon Sep 17 00:00:00 2001
From: "Joseph C. Sible" <josephcsible@users.noreply.github.com>
Date: Fri, 7 Feb 2020 02:10:09 -0500
Subject: Use traverse instead of reimplementing it (#6124)
---
src/Text/Pandoc/App/OutputSettings.hs | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
(limited to 'src/Text/Pandoc/App')
diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs
index 3363acbb9..0dea81c38 100644
--- a/src/Text/Pandoc/App/OutputSettings.hs
+++ b/src/Text/Pandoc/App/OutputSettings.hs
@@ -65,9 +65,7 @@ optToOutputSettings opts = do
mapM_ (UTF8.hPutStrLn stdout) (fromMaybe [] $ optInputFiles opts)
exitSuccess
- epubMetadata <- case optEpubMetadata opts of
- Nothing -> return Nothing
- Just fp -> Just <$> readUtf8File fp
+ epubMetadata <- traverse readUtf8File $ optEpubMetadata opts
let pdfOutput = map toLower (takeExtension outputFile) == ".pdf" ||
optTo opts == Just "pdf"
@@ -112,8 +110,7 @@ optToOutputSettings opts = do
syntaxMap <- foldM addSyntaxMap defaultSyntaxMap
(optSyntaxDefinitions opts)
- hlStyle <- maybe (return Nothing) (fmap Just . lookupHighlightStyle . T.unpack)
- (optHighlightStyle opts)
+ hlStyle <- traverse (lookupHighlightStyle . T.unpack) $ optHighlightStyle opts
let setVariableM k v = return . setVariable k v
--
cgit v1.2.3