From 013a1647a7c78e92b12c2ae520699ef7a567029a Mon Sep 17 00:00:00 2001 From: "Joseph C. Sible" Date: Fri, 7 Feb 2020 02:10:09 -0500 Subject: Use traverse instead of reimplementing it (#6124) --- src/Text/Pandoc/App/OutputSettings.hs | 7 ++----- src/Text/Pandoc/Readers/Org/Blocks.hs | 4 +--- 2 files changed, 3 insertions(+), 8 deletions(-) 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 diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index dc7a26aca..8aceebc07 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -130,9 +130,7 @@ blockAttributes = try $ do let kvAttrs = foldl' (appendValues "ATTR_HTML") Nothing kv let name = lookup "NAME" kv let label = lookup "LABEL" kv - caption' <- case caption of - Nothing -> return Nothing - Just s -> Just <$> parseFromString inlines (s <> "\n") + caption' <- traverse (parseFromString inlines . (<> "\n")) caption kvAttrs' <- parseFromString keyValues . (<> "\n") $ fromMaybe mempty kvAttrs return BlockAttributes { blockAttrName = name -- cgit v1.2.3