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

deal with rare SELECT ErrorBusy failures

Browse source 
I think they might be a sqlite bug. In discussions with sqlite devs.
This commit is contained in:
Joey Hess 2015-02-18 16:56:52 -04:00
parent af254615b2
commit 80683871ee
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Database/Fsck.hs
View file

@ -96,7 +96,7 @@ addDb (FsckHandle h _) k = H.queueDb h 1000 $
sk = toSKey k
inDb :: FsckHandle -> Key -> IO Bool
inDb (FsckHandle h _) = H.queryDb h . inDb' . toSKey
inDb (FsckHandle h _) = H.queryDb h False . inDb' . toSKey
inDb' :: SKey -> SqlPersistM Bool
inDb' sk = do