diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-09 03:38:03 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-09 03:38:03 +0000 |
| commit | 622d4e5223adaea3aa3ba43ed61b748a52526bcc (patch) | |
| tree | 9e0d8db98499a048befd58e9861822ec9be2f00a /src/Text/Pandoc/Blocks.hs | |
| parent | 8bbd11bf210b33dfe9846b83be8d6bd108cef2b9 (diff) | |
Added type declaration for hsepBlocks in
Text.Pandoc.Blocks.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@662 788f1e2b-df1e-0410-8736-df70ead52e1b
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" |