mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid importing Common

Browse source 
it caused a loop when reusing this in propellor
This commit is contained in:
Joey Hess 2014-03-30 18:43:05 -04:00
parent 86d55f200f
commit be76a0e22c
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Utility/FileMode.hs
View file

@ -9,8 +9,8 @@
module Utility.FileMode where module Utility.FileMode where
import Common import System.IO
import Control.Monad
import Control.Exception (bracket) import Control.Exception (bracket)
import System.PosixCompat.Types import System.PosixCompat.Types
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
@ -18,6 +18,8 @@ import System.Posix.Files
#endif #endif
import Foreign (complement) import Foreign (complement)
import Utility.Exception
{- Applies a conversion function to a file's mode. -} {- Applies a conversion function to a file's mode. -}
modifyFileMode :: FilePath -> (FileMode -> FileMode) -> IO () modifyFileMode :: FilePath -> (FileMode -> FileMode) -> IO ()
modifyFileMode f convert = void $ modifyFileMode' f convert modifyFileMode f convert = void $ modifyFileMode' f convert