diff options
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index f956c1fb8..4d82f0207 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -155,11 +155,7 @@ withParagraphStyle _ _ [] = return empty inPreformattedTags :: String -> State WriterState Doc inPreformattedTags s = do n <- paraStyle "Preformatted_20_Text" [] - return . inParagraphTagsWithStyle ("P" ++ show n) . hcat . rest $ s - where rest (' ':' ':' ':' ':xs) = selfClosingTag "text:tab" [] : rest xs - rest ( x:xs) = char x : rest xs - rest [] = [] - + return . inParagraphTagsWithStyle ("P" ++ show n) . text $ s orderedListToOpenDocument :: WriterOptions -> Int -> [[Block]] -> State WriterState Doc orderedListToOpenDocument o pn bs = |