diff options
| author | defanor <defanor@uberspace.net> | 2018-01-09 21:56:47 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2018-01-09 21:56:47 +0300 |
| commit | e572364d0547d1fb4cf98904c01e4f856d7fab0c (patch) | |
| tree | f99b976b86f6775715f0b5704d3fa9f05e216c28 | |
| parent | f72f8e2bb0dbee6c392678a1b60400723c8a2e78 (diff) | |
Leave empty lines around block quotations
| -rw-r--r-- | Pancake/Rendering.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |