move LocationLog into Annex monad from IO
It will need to run in Annex so it can use Branch
This commit is contained in:
parent
78a325b093
commit
d3f0106f2e
9 changed files with 25 additions and 27 deletions
|
@ -68,7 +68,7 @@ checkRemoteUnused' r = do
|
|||
showNote $ "checking for unused data..."
|
||||
g <- Annex.gitRepo
|
||||
referenced <- getKeysReferenced
|
||||
logged <- liftIO $ loggedKeys g
|
||||
logged <- loggedKeys g
|
||||
remotehas <- filterM isthere logged
|
||||
let remoteunused = remotehas `exclude` referenced
|
||||
let list = number 0 remoteunused
|
||||
|
@ -79,7 +79,7 @@ checkRemoteUnused' r = do
|
|||
where
|
||||
isthere k = do
|
||||
g <- Annex.gitRepo
|
||||
us <- liftIO $ keyLocations g k
|
||||
us <- keyLocations g k
|
||||
return $ uuid `elem` us
|
||||
uuid = Remote.uuid r
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue