diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-21 08:41:24 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-21 08:41:24 -0800 |
| commit | fe1152985ca8824b62c7bce397a681e7e422e8e1 (patch) | |
| tree | c34a0de986b6944edd5892019adf0f33b5549aee /src/Text/Pandoc/Writers | |
| parent | 4e446358d1a356ba77c5f7b3cd967bf6c5285c15 (diff) | |
| download | pandoc-fe1152985ca8824b62c7bce397a681e7e422e8e1.tar.gz | |
Shared: Made splitBy take a test instead of an element.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 2 |
2 files changed, 2 insertions, 2 deletions
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. diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index a46a18893..3c6be434b 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -59,7 +59,7 @@ pandocToMan opts (Pandoc (Meta title authors date) blocks) = do xs -> (text (reverse xs), doubleQuotes empty) let description = hsep $ map (doubleQuotes . text . removeLeadingTrailingSpace) $ - splitBy '|' rest + splitBy (== '|') rest body <- blockListToMan opts blocks notes <- liftM stNotes get notes' <- notesToMan opts (reverse notes) |