diff options
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 6f45cfabc..834ca8af6 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -27,9 +27,6 @@ import Utility.FileMode import Config import qualified Option import Types.Key -import System.Posix.Types -import System.Posix.Files -import Data.Bits def :: [Command] def = [withOptions options $ command "fsck" paramPaths seek @@ -322,20 +319,6 @@ badContentRemote remote key = do return $ (if ok then "dropped from " else "failed to drop from ") ++ Remote.name remote -isSticky :: String -> IO Bool -isSticky f = do - fs <- getFileStatus f - let mode = fileMode fs - return $ 0/= mode .&. 512 - -setSticky :: String -> IO FileMode -setSticky f = do - fs <- getFileStatus f - let mode = fileMode fs - let newmode = mode .|. 512 - setFileMode f newmode - return newmode - updateMetadata :: Key -> Annex Bool updateMetadata key = do file <- inRepo $ gitAnnexLocation key |