remove workaround for old bug that was only in one release
It's causing some problem on windows, see http://git-annex.branchable.com/bugs/windows_port_-_repo_can__39__t_pull_newly_added_files_/#comment-45df9748bba687d95e3c96b3877ea925 And only affected WORM backend, and for one release well over a year ago, so could well be bitrotted.
This commit is contained in:
parent
b7674b464b
commit
98be446d02
1 changed files with 7 additions and 18 deletions
|
@ -206,24 +206,13 @@ fixLink key file = do
|
||||||
maybe noop (go want) have
|
maybe noop (go want) have
|
||||||
return True
|
return True
|
||||||
where
|
where
|
||||||
go want have = when (want /= have) $ do
|
go want have
|
||||||
{- Version 3.20120227 had a bug that could cause content
|
| want /= have = do
|
||||||
- to be stored in the wrong hash directory. Clean up
|
showNote "fixing link"
|
||||||
- after the bug by moving the content.
|
liftIO $ createDirectoryIfMissing True (parentDir file)
|
||||||
-}
|
liftIO $ removeFile file
|
||||||
whenM (liftIO $ doesFileExist file) $
|
addAnnexLink want file
|
||||||
unlessM (inAnnex key) $ do
|
| otherwise = noop
|
||||||
showNote "fixing content location"
|
|
||||||
dir <- liftIO $ parentDir <$> absPath file
|
|
||||||
let content = absPathFrom dir have
|
|
||||||
unlessM crippledFileSystem $
|
|
||||||
liftIO $ allowWrite (parentDir content)
|
|
||||||
moveAnnex key content
|
|
||||||
|
|
||||||
showNote "fixing link"
|
|
||||||
liftIO $ createDirectoryIfMissing True (parentDir file)
|
|
||||||
liftIO $ removeFile file
|
|
||||||
addAnnexLink want file
|
|
||||||
|
|
||||||
{- Checks that the location log reflects the current status of the key,
|
{- Checks that the location log reflects the current status of the key,
|
||||||
- in this repository only. -}
|
- in this repository only. -}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue