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

typo

Browse source
This commit is contained in:
Joey Hess 2015-12-24 13:06:03 -04:00
parent f839d407e3
commit c21567dfd3
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Database/Keys.hs
View file

@ -107,7 +107,7 @@ runWriter a = do
v <- case st' of v <- case st' of
DbOpen qh -> a (WriteHandle qh) DbOpen qh -> a (WriteHandle qh)
_ -> error "internal" _ -> error "internal"
return (v, st) return (v, st')
queueDb :: SqlPersistM () -> WriteHandle -> Annex () queueDb :: SqlPersistM () -> WriteHandle -> Annex ()
queueDb a (WriteHandle h) = liftIO $ H.queueDb h checkcommit a queueDb a (WriteHandle h) = liftIO $ H.queueDb h checkcommit a