diff options
Diffstat (limited to 'Utility/FileMode.hs')
| -rw-r--r-- | Utility/FileMode.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Utility/FileMode.hs b/Utility/FileMode.hs index d8fb866ae..26692b3ba 100644 --- a/Utility/FileMode.hs +++ b/Utility/FileMode.hs @@ -9,8 +9,8 @@ module Utility.FileMode where -import Common - +import System.IO +import Control.Monad import Control.Exception (bracket) import System.PosixCompat.Types #ifndef mingw32_HOST_OS @@ -18,6 +18,8 @@ import System.Posix.Files #endif import Foreign (complement) +import Utility.Exception + {- Applies a conversion function to a file's mode. -} modifyFileMode :: FilePath -> (FileMode -> FileMode) -> IO () modifyFileMode f convert = void $ modifyFileMode' f convert |