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

fsck bugfixes

Browse source
This commit is contained in:
Joey Hess 2010-11-13 15:40:12 -04:00
parent abebbcfd54
commit dd573e7010
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Backend/WORM.hs
View file

@ -47,7 +47,7 @@ keyValue file = do
{- Extracts the file size from a key. -} {- Extracts the file size from a key. -}
keySize :: Key -> FileOffset keySize :: Key -> FileOffset
keySize key = read $ section !! 2 keySize key = read $ section !! 1
where where
section = split ":" (keyName key) section = split ":" (keyName key)

6
Core.hs
View file

@ -207,9 +207,11 @@ fromAnnex key dest = do
moveBad :: Key -> Annex FilePath moveBad :: Key -> Annex FilePath
moveBad key = do moveBad key = do
g <- Annex.gitRepo g <- Annex.gitRepo
let src = parentDir $ annexLocation g key let src = annexLocation g key
let dest = annexBadLocation g let dest = annexBadLocation g
liftIO $ renameDirectory src dest liftIO $ createDirectoryIfMissing True dest
liftIO $ renameFile src (dest ++ takeFileName src)
liftIO $ removeDirectory (parentDir src)
return dest return dest
{- List of keys whose content exists in .git/annex/objects/ -} {- List of keys whose content exists in .git/annex/objects/ -}