From ca1624daa2a708342f1da3716c3883a109302a8e Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 9 Oct 2018 16:24:06 +0300
Subject: hlint Muse writer

---
 src/Text/Pandoc/Writers/Muse.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 18aebc364..1374cdde3 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -250,11 +250,11 @@ blockToMuse (Header level (ident,_,_) inlines) = do
   let attr' = if null ident || (isEnabled Ext_auto_identifiers opts && ident == autoId)
                  then empty
                  else "#" <> text ident <> cr
-  let header' = if topLevel then (text $ replicate level '*') <> space else mempty
+  let header' = if topLevel then text (replicate level '*') <> space else mempty
   return $ blankline <> attr' $$ nowrap (header' <> contents) <> blankline
 -- https://www.gnu.org/software/emacs-muse/manual/muse.html#Horizontal-Rules-and-Anchors
 blockToMuse HorizontalRule = return $ blankline $$ "----" $$ blankline
-blockToMuse (Table caption _ _ headers rows) =  do
+blockToMuse (Table caption _ _ headers rows) = do
   caption' <- inlineListToMuse caption
   headers' <- mapM blockListToMuse headers
   rows' <- mapM (mapM blockListToMuse) rows
@@ -294,10 +294,10 @@ noteToMuse :: PandocMonad m
            -> Muse m Doc
 noteToMuse num note =
   hang (length marker) (text marker) <$>
-    (local (\env -> env { envInsideBlock = True
+    local (\env -> env { envInsideBlock = True
                         , envInlineStart = True
                         , envAfterSpace = True
-                        }) $ blockListToMuse note)
+                        }) (blockListToMuse note)
   where
     marker = "[" ++ show num ++ "] "
 
-- 
cgit v1.2.3