finish v6 support for assistant
Seems to basically work now!
This commit is contained in:
parent
4392140946
commit
4f60234690
4 changed files with 99 additions and 87 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue