@@ -64,7 +64,7 @@ writeODT mbRefOdt opts doc = do
6464 picEntriesRef <- newIORef ([] :: [Entry])
6565 let sourceDir = writerSourceDirectory opts
6666 doc' <- processWithM (transformPic sourceDir picEntriesRef) doc
67− let newContents = writeOpenDocument opts doc'
67+ let newContents = writeOpenDocument opts{writerWrapText = False} doc'
6868 (TOD epochtime _) <- getClockTime
6969 let contentEntry = toEntry "content.xml" epochtime $ fromString newContents
7070 picEntries <- readIORef picEntriesRef