diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-11 19:41:13 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-11 19:41:13 -0400 |
commit | e2af0914faf487464046e0a60d20a638add1790d (patch) | |
tree | 753bb6b82627df13c50de13342c2ecfa26f4e148 /Core.hs | |
parent | cc7db6f058f69a1a0f08221f46d2d12d3d3764bf (diff) |
fsck: Fix bug in moving of corrupted files to .git/annex/bad/
Diffstat (limited to 'Core.hs')
-rw-r--r-- | Core.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -173,7 +173,8 @@ moveBad key = do g <- Annex.gitRepo let src = annexLocation g key let dest = annexBadLocation g ++ takeFileName src - liftIO $ createDirectoryIfMissing True dest + liftIO $ createDirectoryIfMissing True (parentDir dest) + liftIO $ allowWrite (parentDir src) liftIO $ renameFile src dest liftIO $ removeDirectory (parentDir src) return dest |