From fe1152985ca8824b62c7bce397a681e7e422e8e1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 21 Dec 2010 08:41:24 -0800 Subject: Shared: Made splitBy take a test instead of an element. --- src/Text/Pandoc/Writers/Docbook.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers/Docbook.hs') diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index 5223259eb..d8b85c1a2 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -217,7 +217,7 @@ tableItemToDocbook opts tag align item = -- | Take list of inline elements and return wrapped doc. wrap :: WriterOptions -> [Inline] -> Doc wrap opts lst = if writerWrapText opts - then fsep $ map (inlinesToDocbook opts) (splitBy Space lst) + then fsep $ map (inlinesToDocbook opts) (splitBy (== Space) lst) else inlinesToDocbook opts lst -- | Convert a list of inline elements to Docbook. -- cgit v1.2.3