From dfcde74776fb403356e4e1f189975da7f5b3eedd Mon Sep 17 00:00:00 2001 From: defanor Date: Wed, 29 Nov 2017 11:26:45 +0300 Subject: Use renderBlocks for OrderedList --- Pancake/Rendering.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Pancake') diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index 94f92f2..a917104 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -406,7 +406,7 @@ renderBlock (P.RawBlock _ s) = renderBlock (P.BlockQuote bs) = withIndent $ renderBlocks bs renderBlock (P.OrderedList _ bs) = do zipWithM_ (\b n -> modify (\s -> s { listing = Just (Ordered n) }) - >> keepIndent (mapM_ renderBlock b)) bs [1..] + >> keepIndent (renderBlocks b)) bs [1..] modify $ \s -> s { listing = Nothing } renderBlock (P.BulletList bs) = do mapM_ (\b -> modify (\s -> s { listing = Just Bulleted }) -- cgit v1.2.3