From e572364d0547d1fb4cf98904c01e4f856d7fab0c Mon Sep 17 00:00:00 2001 From: defanor Date: Tue, 9 Jan 2018 21:56:47 +0300 Subject: Leave empty lines around block quotations --- Pancake/Rendering.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index 8306bd8..e568df0 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -554,6 +554,7 @@ isList _ = False skipBefore :: P.Block -> Bool skipBefore P.Header {} = True skipBefore P.Para {} = True +skipBefore P.BlockQuote {} = True skipBefore (P.Div _ (b:_)) = skipBefore b skipBefore _ = False @@ -561,6 +562,7 @@ skipBefore _ = False skipAfter :: P.Block -> Bool skipAfter P.Header {} = True skipAfter P.Para {} = True +skipAfter P.BlockQuote {} = True skipAfter (P.Div _ bs@(_:_)) = skipAfter $ last bs skipAfter b = isList b -- cgit v1.2.3