From 59654d08a2335bf716f38b76095121c6e4c62535 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 15 Dec 2015 15:34:28 -0400 Subject: reorg --- Limit.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Limit.hs') diff --git a/Limit.hs b/Limit.hs index 321c1122b..437c65bc3 100644 --- a/Limit.hs +++ b/Limit.hs @@ -11,8 +11,8 @@ import Common.Annex import qualified Annex import qualified Utility.Matcher import qualified Remote -import qualified Backend import Annex.Content +import Annex.WorkTree import Annex.Action import Annex.UUID import Logs.Trust @@ -277,7 +277,7 @@ addTimeLimit s = do else return True lookupFileKey :: FileInfo -> Annex (Maybe Key) -lookupFileKey = Backend.lookupFile . currFile +lookupFileKey = lookupFile . currFile checkKey :: (Key -> Annex Bool) -> MatchInfo -> Annex Bool checkKey a (MatchingFile fi) = lookupFileKey fi >>= maybe (return False) a -- cgit v1.2.3