diff options
author | defanor <defanor@uberspace.net> | 2017-11-29 11:26:45 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-29 11:26:45 +0300 |
commit | dfcde74776fb403356e4e1f189975da7f5b3eedd (patch) | |
tree | 5122a3ae777f0f394905e1084f32cd189c603894 | |
parent | 512f530ddba7ef6805833fe4ab59f8488dcfebe8 (diff) |
Use renderBlocks for OrderedList
-rw-r--r-- | Pancake/Rendering.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 }) |