Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

hlint Muse writer

Browse source
This commit is contained in:
Alexander Krotov 2018-10-22 03:14:45 +03:00
parent 875e33ecf6
commit fe99001d9f
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/Muse.hs
View file

@ -206,9 +206,8 @@ blockToMuse (OrderedList (start, style, _) items) = do
=> String -- ^ marker for list item => String -- ^ marker for list item
-> [Block] -- ^ list item (list of blocks) -> [Block] -- ^ list item (list of blocks)
-> Muse m Doc -> Muse m Doc
orderedListItemToMuse marker item = do orderedListItemToMuse marker item = hang (length marker + 1) (text marker <> space)
contents <- blockListToMuse item <$> blockListToMuse item
return $ hang (length marker + 1) (text marker <> space) contents
blockToMuse (BulletList items) = do blockToMuse (BulletList items) = do
contents <- mapM bulletListItemToMuse items contents <- mapM bulletListItemToMuse items
-- ensure that sublists have preceding blank line -- ensure that sublists have preceding blank line
@ -271,8 +270,7 @@ blockToMuse (Table caption _ _ headers rows) = do
let makeRow sep = (" " <>) . hpipeBlocks sep . zipWith lblock widthsInChars let makeRow sep = (" " <>) . hpipeBlocks sep . zipWith lblock widthsInChars
let head' = makeRow " || " headers' let head' = makeRow " || " headers'
let rowSeparator = if noHeaders then " | " else " | " let rowSeparator = if noHeaders then " | " else " | "
rows'' <- mapM (\row -> do cols <- mapM blockListToMuse row rows'' <- mapM (\row -> makeRow rowSeparator <$> mapM blockListToMuse row) rows
return $ makeRow rowSeparator cols) rows
let body = vcat rows'' let body = vcat rows''
return $ (if noHeaders then empty else head') return $ (if noHeaders then empty else head')
$$ body $$ body