@@ -227,7 +227,6 @@ blockToMuse (OrderedList (start, style, _) items) = do
227227 let markers = take (length items) $ orderedListMarkers
228228 (start, style, Period)
229229 contents <- zipWithM orderedListItemToMuse markers items
230− -- ensure that sublists have preceding blank line
231230 topLevel <- asks envTopLevel
232231 return $ (if topLevel then nest 1 else id) (vcat contents) $$ blankline
233232 where orderedListItemToMuse :: PandocMonad m
@@ -238,7 +237,6 @@ blockToMuse (OrderedList (start, style, _) items) = do
238237 <$> blockListToMuse item
239238blockToMuse (BulletList items) = do
240239 contents <- mapM bulletListItemToMuse items
241− -- ensure that sublists have preceding blank line
242240 topLevel <- asks envTopLevel
243241 return $ (if topLevel then nest 1 else id) (vcat contents) $$ blankline
244242 where bulletListItemToMuse :: PandocMonad m
@@ -249,7 +247,6 @@ blockToMuse (BulletList items) = do
249247 hang 2 "- " <$> blockListToMuse item
250248blockToMuse (DefinitionList items) = do
251249 contents <- mapM definitionListItemToMuse items
252− -- ensure that sublists have preceding blank line
253250 topLevel <- asks envTopLevel
254251 return $ (if topLevel then nest 1 else id) (vcat contents) $$ blankline
255252 where definitionListItemToMuse :: PandocMonad m