diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Docx.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 218a6e42a..f29a0fe42 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -36,7 +36,7 @@ import Data.ByteString.Lazy.UTF8 ( fromString, toString ) import Text.Pandoc.UTF8 as UTF8 import System.IO ( stderr ) import Codec.Archive.Zip -import System.Time +import Data.Time.Clock.POSIX import Paths_pandoc ( getDataFileName ) import Text.Pandoc.Definition import Text.Pandoc.Generic @@ -114,7 +114,7 @@ writeDocx mbRefDocx opts doc@(Pandoc (Meta tit auths date) _) = do (newContents, st) <- runStateT (writeOpenXML opts{writerWrapText = False} doc) defaultWriterState - (TOD epochtime _) <- getClockTime + epochtime <- floor `fmap` getPOSIXTime let imgs = M.elems $ stImages st let imgPath ident img = "media/" ++ ident ++ case imageType img of |