diff options
Diffstat (limited to 'src/compiler/GF/System/Directory.hs')
| -rw-r--r-- | src/compiler/GF/System/Directory.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/compiler/GF/System/Directory.hs b/src/compiler/GF/System/Directory.hs index 3cd8a8ef6..306c5fbcb 100644 --- a/src/compiler/GF/System/Directory.hs +++ b/src/compiler/GF/System/Directory.hs @@ -4,10 +4,14 @@ 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 (doesDirectoryExist,doesFileExist,getModificationTime, - getCurrentDirectory,getDirectoryContents,removeFile) + hiding (canonicalizePath,createDirectoryIfMissing, + doesDirectoryExist,doesFileExist,getModificationTime, + getCurrentDirectory,getDirectoryContents,getPermissions, + removeFile) 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) @@ -15,5 +19,6 @@ 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
\ No newline at end of file |