direct mode committing

This commit is contained in:
Joey Hess 2012-12-12 19:20:38 -04:00
parent bfb446604a
commit e7b8cb0063
11 changed files with 186 additions and 54 deletions

View file

@ -37,6 +37,7 @@ import Config
import Init
import Types.Key
import qualified Fields
import Logs.Location
import Control.Concurrent
import Control.Concurrent.MSampleVar
@ -243,7 +244,7 @@ dropKey r key
whenM (Annex.Content.inAnnex key) $ do
Annex.Content.lockContent key $
Annex.Content.removeAnnex key
Annex.Content.logStatus key InfoMissing
logStatus key InfoMissing
Annex.Content.saveState True
return True
| Git.repoIsHttp r = error "dropping from http repo not supported"