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

remove unused isSymLink

Browse source 
That made Utility.FileMode depend on unix, but Utility.Tmp now depends
on it, and is used by Setup, which does not. So it was easiest to remove
this, especially since it's not used.
This commit is contained in:
Joey Hess 2020-09-02 14:59:35 -04:00
parent 376de6fcce
commit 820d4368b3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Utility/FileMode.hs
View file

@ -1,6 +1,6 @@
{- File mode utilities. {- File mode utilities.
- -
- Copyright 2010-2017 Joey Hess <id@joeyh.name> - Copyright 2010-2020 Joey Hess <id@joeyh.name>
- -
- License: BSD-2-clause - License: BSD-2-clause
-} -}
@ -16,11 +16,7 @@ import System.IO
import Control.Monad import Control.Monad
import System.PosixCompat.Types import System.PosixCompat.Types
import System.PosixCompat.Files import System.PosixCompat.Files
#ifndef mingw32_HOST_OS import Control.Monad.IO.Class
import System.Posix.Files (symbolicLinkMode)
import Control.Monad.IO.Class (liftIO)
#endif
import Control.Monad.IO.Class (MonadIO)
import Foreign (complement) import Foreign (complement)
import Control.Monad.Catch import Control.Monad.Catch
@ -97,14 +93,6 @@ groupWriteRead f = modifyFileMode f $ addModes groupSharedModes
checkMode :: FileMode -> FileMode -> Bool checkMode :: FileMode -> FileMode -> Bool
checkMode checkfor mode = checkfor `intersectFileModes` mode == checkfor checkMode checkfor mode = checkfor `intersectFileModes` mode == checkfor
{- Checks if a file mode indicates it's a symlink. -}
isSymLink :: FileMode -> Bool
#ifdef mingw32_HOST_OS
isSymLink _ = False
#else
isSymLink = checkMode symbolicLinkMode
#endif
{- Checks if a file has any executable bits set. -} {- Checks if a file has any executable bits set. -}
isExecutable :: FileMode -> Bool isExecutable :: FileMode -> Bool
isExecutable mode = combineModes executeModes `intersectFileModes` mode /= 0 isExecutable mode = combineModes executeModes `intersectFileModes` mode /= 0