Added type declaration for hsepBlocks in
Text.Pandoc.Blocks.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@662 788f1e2b-df1e-0410-8736-df70ead52e1b
commit622d4e5223adaea3aa3ba43ed61b748a52526bcc
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateMon 9 Jul 2007, 03:38 (19 years ago)
parent8bbd11b
src/Text/Pandoc/Blocks.hs+1
@@ -108,6 +108,7 @@ hcatBlocks ((TextBlock width1 height1 lns1):xs) =
108108 in TextBlock width height lns
109109
110110-- | Like @hcatBlocks@, but inserts space between the @TextBlock@s.
111+hsepBlocks :: [TextBlock] -> TextBlock
111112hsepBlocks = hcatBlocks . (intersperse (TextBlock 1 1 [" "]))
112113
113114isWhitespace x = x `elem` " \t"