finish v6 support for assistant

Seems to basically work now!
This commit is contained in:
Joey Hess 2015-12-22 15:23:27 -04:00
parent 4392140946
commit 4f60234690
Failed to extract signature
4 changed files with 99 additions and 87 deletions

View file

@ -113,7 +113,9 @@ start file = ifAnnexed file addpresent add
next $ next $ cleanup file key Nothing =<< inAnnex key
perform :: FilePath -> CommandPerform
perform file = lockDown file >>= ingest >>= go
perform file = do
lockingfile <- not <$> isDirect
lockDown lockingfile file >>= ingest >>= go
where
go (Just key, cache) = next $ cleanup file key cache True
go (Nothing, _) = stop