From 59654d08a2335bf716f38b76095121c6e4c62535 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 15 Dec 2015 15:34:28 -0400 Subject: reorg --- Backend.hs | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'Backend.hs') diff --git a/Backend.hs b/Backend.hs index d37eed34a..c2f3d28d4 100644 --- a/Backend.hs +++ b/Backend.hs @@ -9,7 +9,6 @@ module Backend ( list, orderedList, genKey, - lookupFile, getBackend, chooseBackend, lookupBackendName, @@ -20,8 +19,6 @@ module Backend ( import Common.Annex import qualified Annex import Annex.CheckAttr -import Annex.CatFile -import Annex.Link import Types.Key import Types.KeySource import qualified Types.Backend as B @@ -76,21 +73,6 @@ genKey' (b:bs) source = do | c == '\n' = '_' | otherwise = c -{- Looks up the key corresponding to an annexed file, - - by examining what the file links to. - - - - An unlocked file will not have a link on disk, so fall back to - - looking for a pointer to a key in git. - -} -lookupFile :: FilePath -> Annex (Maybe Key) -lookupFile file = do - mkey <- isAnnexLink file - case mkey of - Just key -> makeret key - Nothing -> maybe (return Nothing) makeret =<< catKeyFile file - where - makeret = return . Just - getBackend :: FilePath -> Key -> Annex (Maybe Backend) getBackend file k = let bname = keyBackendName k in case maybeLookupBackendName bname of -- cgit v1.2.3