From f72e3b58e8edd9d81c982ec9e9c54fbc0ba94dcd Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Thu, 1 Sep 2016 06:28:55 -0400 Subject: Remove directory compat directory 1.1 depends on base 4.5 (ghc 7.4) which we are no longer supporting. So we don't have to use a compatibility layer for it. --- src/Text/Pandoc/Compat/Directory.hs | 21 --------------------- 1 file changed, 21 deletions(-) delete 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 deleted file mode 100644 index 61dd5c525..000000000 --- a/src/Text/Pandoc/Compat/Directory.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# 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