diff options
| author | Joseph C. Sible <josephcsible@users.noreply.github.com> | 2020-02-08 12:12:01 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-02-08 09:12:01 -0800 |
| commit | 12c75701be4b87fc438be68af5658d71e5578f62 (patch) | |
| tree | 74919a84c230a75219ecb90bba10b27eab438595 | |
| parent | e97a99616e05c3cfb7baea37a5b9fac7689f9b18 (diff) | |
| download | pandoc-12c75701be4b87fc438be68af5658d71e5578f62.tar.gz | |
Use <$> instead of >>= and return (#6128)
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Fields.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/Docx.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Fields.hs b/src/Text/Pandoc/Readers/Docx/Fields.hs index ececf94c7..fe15c59e9 100644 --- a/src/Text/Pandoc/Readers/Docx/Fields.hs +++ b/src/Text/Pandoc/Readers/Docx/Fields.hs @@ -42,7 +42,7 @@ escapedQuote = string "\\\"" $> "\\\"" inQuotes :: Parser T.Text inQuotes = - try escapedQuote <|> (anyChar >>= (\c -> return $ T.singleton c)) + try escapedQuote <|> (T.singleton <$> anyChar) quotedString :: Parser T.Text quotedString = do diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index 4d2e0d276..840a033f5 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -92,7 +92,7 @@ testForWarningsWithOpts opts name docxFile expected = getMedia :: FilePath -> FilePath -> IO (Maybe B.ByteString) getMedia archivePath mediaPath = do zf <- toArchive <$> B.readFile archivePath - return $ findEntryByPath ("word/" ++ mediaPath) zf >>= (Just . fromEntry) + return $ fromEntry <$> findEntryByPath ("word/" ++ mediaPath) zf compareMediaPathIO :: FilePath -> MediaBag -> FilePath -> IO Bool compareMediaPathIO mediaPath mediaBag docxPath = do |