diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-02 03:29:47 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-02 03:29:47 +0300 |
| commit | afd3f21218cf4279cc718ff050b4ab9c747e72e1 (patch) | |
| tree | d29ddcf9c3a94884e0c7b203b4f087b6cda73bd1 /src/Text/Pandoc | |
| parent | 6ea6011ca66c3127ff42cd5d0d39b3bd40e56e76 (diff) | |
| download | pandoc-afd3f21218cf4279cc718ff050b4ab9c747e72e1.tar.gz | |
Muse writer: hlint
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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' |