forked from GitHub/gf-core
86066d4b12
It was only needed for compatibility with directory<1.2, but directory>=1.2 has been shipped with ghc since ghc-7.6. Note: time-compat-1.9.* (the current version) is a completely different package, that does not provide the needed function toUTCTime, which was provided in time-compat-0.1.*.
26 lines
1.2 KiB
Haskell
26 lines
1.2 KiB
Haskell
-- | Isolate backwards incompatible library changes to 'getModificationTime'
|
|
-- and provide lifted versions of some directory operations
|
|
module GF.System.Directory(module GF.System.Directory,module D) where
|
|
import Control.Monad.Trans(MonadIO(..))
|
|
import qualified System.Directory as D
|
|
import System.Directory as D
|
|
hiding (canonicalizePath,createDirectoryIfMissing,
|
|
doesDirectoryExist,doesFileExist,getModificationTime,
|
|
getCurrentDirectory,getDirectoryContents,getPermissions,
|
|
removeFile,renameFile)
|
|
--import Data.Time.Compat
|
|
|
|
canonicalizePath path = liftIO $ D.canonicalizePath path
|
|
createDirectoryIfMissing b = liftIO . D.createDirectoryIfMissing b
|
|
doesDirectoryExist path = liftIO $ D.doesDirectoryExist path
|
|
doesFileExist path = liftIO $ D.doesFileExist path
|
|
getModificationTime path = liftIO $ {-fmap toUTCTime-} (D.getModificationTime path)
|
|
getDirectoryContents path = liftIO $ D.getDirectoryContents path
|
|
|
|
getCurrentDirectory :: MonadIO io => io FilePath
|
|
getCurrentDirectory = liftIO D.getCurrentDirectory
|
|
getPermissions path = liftIO $ D.getPermissions path
|
|
|
|
removeFile path = liftIO $ D.removeFile path
|
|
renameFile path = liftIO . D.renameFile path
|