From 12c75701be4b87fc438be68af5658d71e5578f62 Mon Sep 17 00:00:00 2001 From: "Joseph C. Sible" Date: Sat, 8 Feb 2020 12:12:01 -0500 Subject: Use <$> instead of >>= and return (#6128) --- src/Text/Pandoc/Readers/Docx/Fields.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3