aboutsummaryrefslogtreecommitdiff
path: root/Text
diff options
context:
space:
mode:
Diffstat (limited to 'Text')
-rw-r--r--Text/Pandoc/Writers/OpenDocument.hs6
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 =