From 622d4e5223adaea3aa3ba43ed61b748a52526bcc Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Mon, 9 Jul 2007 03:38:03 +0000 Subject: Added type declaration for hsepBlocks in Text.Pandoc.Blocks. git-svn-id: https://pandoc.googlecode.com/svn/trunk@662 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Blocks.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Text/Pandoc/Blocks.hs') 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" -- cgit v1.2.3