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

initial try at using storeExportWithContentIdentifier

Browse source 
Untested, and I'm not sure about the locking of the ContentIdentifier db.
This commit is contained in:
Joey Hess 2019-03-04 17:50:41 -04:00
parent b67fa2180e
commit cd3a2b023a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 96 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Remote/List.hs
View file

@ -106,10 +106,7 @@ remoteGen m t g = do
let c = fromMaybe M.empty $ M.lookup u m
generate t g u c gc >>= \case
Nothing -> return Nothing
Just r -> do
r' <- adjustImportable (adjustReadOnly (addHooks r))
r'' <- adjustExportable r'
return $ Just r''
Just r -> Just <$> adjustExportImport (adjustReadOnly (addHooks r))
{- Updates a local git Remote, re-reading its git config. -}
updateRemote :: Remote -> Annex (Maybe Remote)