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