aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-09 03:38:03 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-09 03:38:03 +0000
commit622d4e5223adaea3aa3ba43ed61b748a52526bcc (patch)
tree9e0d8db98499a048befd58e9861822ec9be2f00a /src/Text/Pandoc
parent8bbd11bf210b33dfe9846b83be8d6bd108cef2b9 (diff)
downloadpandoc-622d4e5223adaea3aa3ba43ed61b748a52526bcc.tar.gz
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')
-rw-r--r--src/Text/Pandoc/Blocks.hs1
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"