hlint Muse writer

1 files changed, 4 insertions, 4 deletions

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 ++ "] "