From afd3f21218cf4279cc718ff050b4ab9c747e72e1 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
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(-)

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