From afd3f21218cf4279cc718ff050b4ab9c747e72e1 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sun, 2 Sep 2018 03:29:47 +0300 Subject: Muse writer: hlint --- src/Text/Pandoc/Writers/Muse.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index b9f9381c3..627358839 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -348,9 +348,9 @@ conditionalEscapeString :: PandocMonad m -> Muse m String conditionalEscapeString s = do shouldEscape <- shouldEscapeString s - if shouldEscape - then return $ escapeString s - else return $ s + return $ if shouldEscape + then escapeString s + else s -- Expand Math and Cite before normalizing inline list preprocessInlineList :: PandocMonad m @@ -489,7 +489,7 @@ inlineListToMuse :: PandocMonad m => [Inline] -> Muse m Doc inlineListToMuse lst = do - lst' <- (normalizeInlineList . fixNotes) <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst) + lst' <- normalizeInlineList . fixNotes <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst) insideAsterisks <- asks envInsideAsterisks modify $ \st -> st { stUseTags = False } -- Previous character is likely a '>' or some other markup local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst' -- cgit v1.2.3