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
Command/Fsck.hs
View file

@ -60,7 +60,7 @@ verifyLocationLog key file = do
preventWrite (parentDir f)
u <- getUUID g
uuids <- liftIO $ keyLocations g key
uuids <- keyLocations g key
case (present, u `elem` uuids) of
(True, False) -> do