05bdce328d
This is the start of a long road, got the first few files to compile after this large change. Sponsored-by: mycroft
107 lines
3 KiB
Haskell
107 lines
3 KiB
Haskell
{- System.Directory wrapped to use OsPath.
|
|
-
|
|
- getFileSize is omitted, use Utility.FileSize instead
|
|
-
|
|
- Copyright 2016 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
module Utility.SystemDirectory (
|
|
createDirectory,
|
|
createDirectoryIfMissing,
|
|
removeDirectory,
|
|
removeDirectoryRecursive,
|
|
removePathForcibly,
|
|
renameDirectory,
|
|
listDirectory,
|
|
getDirectoryContents,
|
|
getCurrentDirectory,
|
|
setCurrentDirectory,
|
|
withCurrentDirectory,
|
|
getTemporaryDirectory,
|
|
removeFile,
|
|
renameFile,
|
|
renamePath,
|
|
copyFile,
|
|
canonicalizePath,
|
|
doesPathExist,
|
|
doesFileExist,
|
|
doesDirectoryExist,
|
|
getModificationTime,
|
|
) where
|
|
|
|
#ifdef WITH_OSPATH
|
|
import System.Directory.OsPath
|
|
#else
|
|
import qualified System.Directory as X
|
|
import Data.Time.Clock (UTCTime)
|
|
import Utility.OsPath
|
|
import Utility.FileSystemEncoding
|
|
|
|
createDirectory :: OsPath -> IO ()
|
|
createDirectory = X.createDirectory . fromRawFilePath
|
|
|
|
createDirectoryIfMissing :: Bool -> OsPath -> IO ()
|
|
createDirectoryIfMissing b = X.createDirectoryIfMissing b . fromRawFilePath
|
|
|
|
removeDirectory :: OsPath -> IO ()
|
|
removeDirectory = X.removeDirectory . fromRawFilePath
|
|
|
|
removeDirectoryRecursive :: OsPath -> IO ()
|
|
removeDirectoryRecursive = X.removeDirectoryRecursive . fromRawFilePath
|
|
|
|
removePathForcibly :: OsPath -> IO ()
|
|
removePathForcibly = X.removePathForcibly . fromRawFilePath
|
|
|
|
renameDirectory :: OsPath -> OsPath -> IO ()
|
|
renameDirectory a b = X.renameDirectory (fromRawFilePath a) (fromRawFilePath b)
|
|
|
|
listDirectory :: OsPath -> IO [OsPath]
|
|
listDirectory p = map toRawFilePath <$> X.listDirectory (fromRawFilePath p)
|
|
|
|
getDirectoryContents :: OsPath -> IO [OsPath]
|
|
getDirectoryContents p = map toRawFilePath <$> X.getDirectoryContents (fromRawFilePath p)
|
|
|
|
getCurrentDirectory :: IO OsPath
|
|
getCurrentDirectory = toRawFilePath <$> X.getCurrentDirectory
|
|
|
|
setCurrentDirectory :: OsPath -> IO ()
|
|
setCurrentDirectory = X.setCurrentDirectory . fromRawFilePath
|
|
|
|
withCurrentDirectory :: OsPath -> IO a -> IO a
|
|
withCurrentDirectory = X.withCurrentDirectory . fromRawFilePath
|
|
|
|
getTemporaryDirectory :: IO OsPath
|
|
getTemporaryDirectory = toRawFilePath <$> X.getTemporaryDirectory
|
|
|
|
removeFile :: OsPath -> IO ()
|
|
removeFile = X.removeFile . fromRawFilePath
|
|
|
|
renameFile :: OsPath -> OsPath -> IO ()
|
|
renameFile a b = X.renameFile (fromRawFilePath a) (fromRawFilePath b)
|
|
|
|
renamePath :: OsPath -> OsPath -> IO ()
|
|
renamePath a b = X.renamePath (fromRawFilePath a) (fromRawFilePath b)
|
|
|
|
copyFile :: OsPath -> OsPath -> IO ()
|
|
copyFile a b = X.copyFile (fromRawFilePath a) (fromRawFilePath b)
|
|
|
|
canonicalizePath :: OsPath -> IO OsPath
|
|
canonicalizePath p = toRawFilePath <$> X.canonicalizePath (fromRawFilePath p)
|
|
|
|
doesPathExist :: OsPath -> IO Bool
|
|
doesPathExist = X.doesPathExist . fromRawFilePath
|
|
|
|
doesFileExist :: OsPath -> IO Bool
|
|
doesFileExist = X.doesFileExist . fromRawFilePath
|
|
|
|
doesDirectoryExist :: OsPath -> IO Bool
|
|
doesDirectoryExist = X.doesDirectoryExist . fromRawFilePath
|
|
|
|
getModificationTime :: OsPath -> IO UTCTime
|
|
getModificationTime = X.getModificationTime . fromRawFilePath
|
|
#endif
|