From 6fd3bcceb9374654d79362514862b38991e7a321 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 14 Nov 2018 14:37:18 +0300 Subject: Muse writer: remove outdated comments --- src/Text/Pandoc/Writers/Muse.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 1d7a3fd77..71fa0aae6 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -227,7 +227,6 @@ blockToMuse (OrderedList (start, style, _) items) = do let markers = take (length items) $ orderedListMarkers (start, style, Period) contents <- zipWithM orderedListItemToMuse markers items - -- ensure that sublists have preceding blank line topLevel <- asks envTopLevel return $ (if topLevel then nest 1 else id) (vcat contents) $$ blankline where orderedListItemToMuse :: PandocMonad m @@ -238,7 +237,6 @@ blockToMuse (OrderedList (start, style, _) items) = do <$> blockListToMuse item blockToMuse (BulletList items) = do contents <- mapM bulletListItemToMuse items - -- ensure that sublists have preceding blank line topLevel <- asks envTopLevel return $ (if topLevel then nest 1 else id) (vcat contents) $$ blankline where bulletListItemToMuse :: PandocMonad m @@ -249,7 +247,6 @@ blockToMuse (BulletList items) = do hang 2 "- " <$> blockListToMuse item blockToMuse (DefinitionList items) = do contents <- mapM definitionListItemToMuse items - -- ensure that sublists have preceding blank line topLevel <- asks envTopLevel return $ (if topLevel then nest 1 else id) (vcat contents) $$ blankline where definitionListItemToMuse :: PandocMonad m -- cgit v1.2.3