mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

move LocationLog into Annex monad from IO

Browse source 
It will need to run in Annex so it can use Branch
This commit is contained in:
Joey Hess 2011-06-22 14:27:50 -04:00
parent 78a325b093
commit d3f0106f2e
9 changed files with 25 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote.hs
View file

@ -141,7 +141,7 @@ keyPossibilities key = do
trusted <- trustGet Trusted
-- get uuids of all remotes that are recorded to have the key
uuids <- liftIO $ keyLocations g key
uuids <- keyLocations g key
let validuuids = filter (/= u) uuids
-- note that validuuids is assumed to not have dups