aboutsummaryrefslogtreecommitdiff
path: root/Text
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-06-09 21:07:52 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-06-09 21:07:52 +0000
commit8add1cf821c050ecb53089a92d1e37e523f75515 (patch)
tree3f6ad8315e4b7b9643f9240aaffafb2d054a0a83 /Text
parent3337b46e3030e0e1da6c5d9602a03100d5881b87 (diff)
downloadpandoc-8add1cf821c050ecb53089a92d1e37e523f75515.tar.gz
OpenDocument writer: don't convert 4 spaces to tab in verbatim block.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1281 788f1e2b-df1e-0410-8736-df70ead52e1b
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 =