aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-10-09 16:24:06 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-10-09 16:24:06 +0300
commitca1624daa2a708342f1da3716c3883a109302a8e (patch)
tree57b81b28880ff3714f9523ee0011ee95953ff983 /src/Text
parentca4ee9940ce55fc640ba21dbf2ccde9b048216bb (diff)
downloadpandoc-ca1624daa2a708342f1da3716c3883a109302a8e.tar.gz
hlint Muse writer
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs8
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 ++ "] "