@@ -155,11 +155,7 @@ withParagraphStyle _ _ [] = return empty
155155inPreformattedTags :: String -> State WriterState Doc
156156inPreformattedTags s = do
157157 n <- paraStyle "Preformatted_20_Text" []
158− return . inParagraphTagsWithStyle ("P" ++ show n) . hcat . rest $ s
159− where rest (' ':' ':' ':' ':xs) = selfClosingTag "text:tab" [] : rest xs
160− rest ( x:xs) = char x : rest xs
161− rest [] = []
162−
158+ return . inParagraphTagsWithStyle ("P" ++ show n) . text $ s
163159
164160orderedListToOpenDocument :: WriterOptions -> Int -> [[Block]] -> State WriterState Doc
165161orderedListToOpenDocument o pn bs =