diff options
Diffstat (limited to 'src/Text/Pandoc/Blocks.hs')
| -rw-r--r-- | src/Text/Pandoc/Blocks.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Blocks.hs b/src/Text/Pandoc/Blocks.hs index ef0d444f8..ffcd5bfe0 100644 --- a/src/Text/Pandoc/Blocks.hs +++ b/src/Text/Pandoc/Blocks.hs @@ -108,6 +108,7 @@ hcatBlocks ((TextBlock width1 height1 lns1):xs) = in TextBlock width height lns -- | Like @hcatBlocks@, but inserts space between the @TextBlock@s. +hsepBlocks :: [TextBlock] -> TextBlock hsepBlocks = hcatBlocks . (intersperse (TextBlock 1 1 [" "])) isWhitespace x = x `elem` " \t" |