From f2c7a6e73d342f4f82be4e2839a2022f97539c65 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Nov 2010 18:21:54 -0400 Subject: got rid of several more calls to git when finding unlocked files --- Core.hs | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'Core.hs') diff --git a/Core.hs b/Core.hs index 0c06d2310..8497a7f36 100644 --- a/Core.hs +++ b/Core.hs @@ -224,20 +224,6 @@ getKeysReferenced = do keypairs <- mapM Backend.lookupFile files return $ map fst $ catMaybes keypairs -{- Passed a location (a directory or a single file, returns - - files there that are unlocked for editing. -} -unlockedFiles :: FilePath -> Annex [FilePath] -unlockedFiles l = do - -- unlocked files have changed type from a symlink to a regular file - g <- Annex.gitRepo - typechangedfiles <- liftIO $ Git.typeChangedFiles g l - unlockedfiles <- filterM notsymlink typechangedfiles - return unlockedfiles - where - notsymlink f = do - s <- liftIO $ getSymbolicLinkStatus f - return $ not $ isSymbolicLink s - {- Uses the annex.version git config setting to automate upgrades. -} autoUpgrade :: Annex () autoUpgrade = do -- cgit v1.2.3