@@ -250,11 +250,11 @@ blockToMuse (Header level (ident,_,_) inlines) = do
250250 let attr' = if null ident || (isEnabled Ext_auto_identifiers opts && ident == autoId)
251251 then empty
252252 else "#" <> text ident <> cr
253− let header' = if topLevel then (text $ replicate level '*') <> space else mempty
253+ let header' = if topLevel then text (replicate level '*') <> space else mempty
254254 return $ blankline <> attr' $$ nowrap (header' <> contents) <> blankline
255255-- https://www.gnu.org/software/emacs-muse/manual/muse.html#Horizontal-Rules-and-Anchors
256256blockToMuse HorizontalRule = return $ blankline $$ "----" $$ blankline
257−blockToMuse (Table caption _ _ headers rows) = do
257+blockToMuse (Table caption _ _ headers rows) = do
258258 caption' <- inlineListToMuse caption
259259 headers' <- mapM blockListToMuse headers
260260 rows' <- mapM (mapM blockListToMuse) rows
@@ -294,10 +294,10 @@ noteToMuse :: PandocMonad m
294294 -> Muse m Doc
295295noteToMuse num note =
296296 hang (length marker) (text marker) <$>
297− (local (\env -> env { envInsideBlock = True
297+ local (\env -> env { envInsideBlock = True
298298 , envInlineStart = True
299299 , envAfterSpace = True
300− }) $ blockListToMuse note)
300+ }) (blockListToMuse note)
301301 where
302302 marker = "[" ++ show num ++ "] "
303303