diff options
| author | Joseph C. Sible <[email protected]> | 2024-12-14 02:28:04 -0500 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-12-14 17:08:53 -0800 |
| commit | a63cf069e35046411af87f67e21da603f8303393 (patch) | |
| tree | ab9142c76f82f915b94c51b33b12615cfbf699c9 | |
| parent | 3f49e1a7d8af501680500e7d0b78d13c153bf32e (diff) | |
Use <$> instead of >>= and return
| -rw-r--r-- | src/Text/Pandoc/Writers/ANSI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/ANSI.hs b/src/Text/Pandoc/Writers/ANSI.hs index 60440f7ad..b12f3d412 100644 --- a/src/Text/Pandoc/Writers/ANSI.hs +++ b/src/Text/Pandoc/Writers/ANSI.hs @@ -297,12 +297,12 @@ inlineToANSI opts (Strikeout lst) = do inlineToANSI opts (Superscript lst) = do case traverse toSuperscriptInline lst of Just xs -> inlineListToANSI opts xs - Nothing -> inlineListToANSI opts lst >>= return . D.parens + Nothing -> D.parens <$> inlineListToANSI opts lst inlineToANSI opts (Subscript lst) = do case traverse toSubscriptInline lst of Just xs -> inlineListToANSI opts xs - Nothing -> inlineListToANSI opts lst >>= return . D.parens + Nothing -> D.parens <$> inlineListToANSI opts lst inlineToANSI opts (SmallCaps lst) = inlineListToANSI opts lst |