diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-28 16:04:35 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-28 16:04:35 -0800 |
commit | f437827b0cb8158fcad325ef7efd1321524468f1 (patch) | |
tree | 88de22a1a1bd60584e6cfdaff1e14dec310c392a /src/Text/Pandoc/Writers/Docx.hs | |
parent | 3a0b3df00701eef2a0549487e08fa4d63c3ab8d9 (diff) |
Remove dependency on old-time.
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 |