From 9e4604fa0b20b12177fe1f24650e4dfaf388e33a Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Sat, 26 Jul 2014 23:52:40 +0100 Subject: Added compatability layer to support directory-1.1 --- src/Text/Pandoc/Compat/Directory.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/Text/Pandoc/Compat/Directory.hs (limited to 'src/Text/Pandoc/Compat') diff --git a/src/Text/Pandoc/Compat/Directory.hs b/src/Text/Pandoc/Compat/Directory.hs new file mode 100644 index 000000000..61dd5c525 --- /dev/null +++ b/src/Text/Pandoc/Compat/Directory.hs @@ -0,0 +1,21 @@ +{-# LANGUAGE CPP #-} +module Text.Pandoc.Compat.Directory ( getModificationTime ) + where + +#if MIN_VERSION_directory(1,2,0) +import System.Directory + + +#else +import qualified System.Directory as S +import Data.Time.Clock (UTCTime) +import Data.Time.Clock.POSIX +import System.Time + +getModificationTime :: FilePath -> IO UTCTime +getModificationTime fp = convert `fmap` S.getModificationTime fp + where + convert (TOD x _) = posixSecondsToUTCTime (realToFrac x) + +#endif + -- cgit v1.2.3