Support hot-swapping of removable drives containing gcrypt repositories.
To support this, a core.gcrypt-id is stored by git-annex inside the git config of a local gcrypt repository, when setting it up. That is compared with the remote's cached gcrypt-id. When different, a drive has been changed. git-annex then looks up the remote config for the uuid mapped from the core.gcrypt-id, and tweaks the configuration appropriately. When there is no known config for the uuid, it will refuse to use the remote.
This commit is contained in:
parent
5aecf2b42d
commit
5fe49b98f8
15 changed files with 85 additions and 42 deletions
|
@ -174,14 +174,14 @@ remotesUnder dir = do
|
||||||
pairs <- liftAnnex $ mapM (checkremote repotop) rs
|
pairs <- liftAnnex $ mapM (checkremote repotop) rs
|
||||||
let (waschanged, rs') = unzip pairs
|
let (waschanged, rs') = unzip pairs
|
||||||
when (any id waschanged) $ do
|
when (any id waschanged) $ do
|
||||||
liftAnnex $ Annex.changeState $ \s -> s { Annex.remotes = rs' }
|
liftAnnex $ Annex.changeState $ \s -> s { Annex.remotes = catMaybes rs' }
|
||||||
updateSyncRemotes
|
updateSyncRemotes
|
||||||
return $ map snd $ filter fst pairs
|
return $ catMaybes $ map snd $ filter fst pairs
|
||||||
where
|
where
|
||||||
checkremote repotop r = case Remote.localpath r of
|
checkremote repotop r = case Remote.localpath r of
|
||||||
Just p | dirContains dir (absPathFrom repotop p) ->
|
Just p | dirContains dir (absPathFrom repotop p) ->
|
||||||
(,) <$> pure True <*> updateRemote r
|
(,) <$> pure True <*> updateRemote r
|
||||||
_ -> return (False, r)
|
_ -> return (False, Just r)
|
||||||
|
|
||||||
type MountPoints = S.Set Mntent
|
type MountPoints = S.Set Mntent
|
||||||
|
|
||||||
|
|
|
@ -36,8 +36,11 @@ setConfig (ConfigKey key) value = do
|
||||||
|
|
||||||
{- Unsets a git config setting. (Leaves it in state currently.) -}
|
{- Unsets a git config setting. (Leaves it in state currently.) -}
|
||||||
unsetConfig :: ConfigKey -> Annex ()
|
unsetConfig :: ConfigKey -> Annex ()
|
||||||
unsetConfig (ConfigKey key) = inRepo $ Git.Command.run
|
unsetConfig ck@(ConfigKey key) = ifM (isJust <$> getConfigMaybe ck)
|
||||||
[Param "config", Param "--unset", Param key]
|
( inRepo $ Git.Command.run
|
||||||
|
[Param "config", Param "--unset", Param key]
|
||||||
|
, noop -- avoid unsetting something not set; that would fail
|
||||||
|
)
|
||||||
|
|
||||||
{- A per-remote config setting in git config. -}
|
{- A per-remote config setting in git config. -}
|
||||||
remoteConfig :: Git.Repo -> UnqualifiedConfigKey -> ConfigKey
|
remoteConfig :: Git.Repo -> UnqualifiedConfigKey -> ConfigKey
|
||||||
|
|
|
@ -42,7 +42,7 @@ remote = RemoteType {
|
||||||
setup = bupSetup
|
setup = bupSetup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc = do
|
gen r u c gc = do
|
||||||
bupr <- liftIO $ bup2GitRemote buprepo
|
bupr <- liftIO $ bup2GitRemote buprepo
|
||||||
cst <- remoteCost gc $
|
cst <- remoteCost gc $
|
||||||
|
@ -72,7 +72,7 @@ gen r u c gc = do
|
||||||
, globallyAvailable = not $ bupLocal buprepo
|
, globallyAvailable = not $ bupLocal buprepo
|
||||||
, readonly = False
|
, readonly = False
|
||||||
}
|
}
|
||||||
return $ encryptableRemote c
|
return $ Just $ encryptableRemote c
|
||||||
(storeEncrypted new buprepo)
|
(storeEncrypted new buprepo)
|
||||||
(retrieveEncrypted buprepo)
|
(retrieveEncrypted buprepo)
|
||||||
new
|
new
|
||||||
|
|
|
@ -37,11 +37,11 @@ remote = RemoteType {
|
||||||
setup = directorySetup
|
setup = directorySetup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc = do
|
gen r u c gc = do
|
||||||
cst <- remoteCost gc cheapRemoteCost
|
cst <- remoteCost gc cheapRemoteCost
|
||||||
let chunksize = chunkSize c
|
let chunksize = chunkSize c
|
||||||
return $ encryptableRemote c
|
return $ Just $ encryptableRemote c
|
||||||
(storeEncrypted dir (getGpgEncParams (c,gc)) chunksize)
|
(storeEncrypted dir (getGpgEncParams (c,gc)) chunksize)
|
||||||
(retrieveEncrypted dir chunksize)
|
(retrieveEncrypted dir chunksize)
|
||||||
Remote {
|
Remote {
|
||||||
|
|
|
@ -18,6 +18,7 @@ import qualified Git
|
||||||
import qualified Git.Command
|
import qualified Git.Command
|
||||||
import qualified Git.Config
|
import qualified Git.Config
|
||||||
import qualified Git.GCrypt
|
import qualified Git.GCrypt
|
||||||
|
import qualified Git.Construct
|
||||||
import qualified Git.Types as Git ()
|
import qualified Git.Types as Git ()
|
||||||
import qualified Annex.Branch
|
import qualified Annex.Branch
|
||||||
import qualified Annex.Content
|
import qualified Annex.Content
|
||||||
|
@ -32,6 +33,7 @@ import Annex.UUID
|
||||||
import Annex.Ssh
|
import Annex.Ssh
|
||||||
import qualified Remote.Rsync
|
import qualified Remote.Rsync
|
||||||
import Utility.Rsync
|
import Utility.Rsync
|
||||||
|
import Logs.Remote
|
||||||
|
|
||||||
remote :: RemoteType
|
remote :: RemoteType
|
||||||
remote = RemoteType {
|
remote = RemoteType {
|
||||||
|
@ -43,7 +45,7 @@ remote = RemoteType {
|
||||||
setup = gCryptSetup
|
setup = gCryptSetup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen gcryptr u c gc = do
|
gen gcryptr u c gc = do
|
||||||
g <- gitRepo
|
g <- gitRepo
|
||||||
-- get underlying git repo with real path, not gcrypt path
|
-- get underlying git repo with real path, not gcrypt path
|
||||||
|
@ -53,9 +55,32 @@ gen gcryptr u c gc = do
|
||||||
r'' <- if Git.repoIsLocalUnknown r'
|
r'' <- if Git.repoIsLocalUnknown r'
|
||||||
then liftIO $ catchDefaultIO r' $ Git.Config.read r'
|
then liftIO $ catchDefaultIO r' $ Git.Config.read r'
|
||||||
else return r'
|
else return r'
|
||||||
gen' r'' u c gc
|
-- doublecheck that local cache matches underlying repo's gcrypt-id
|
||||||
|
-- (which might not be set)
|
||||||
|
case (Git.Config.getMaybe "core.gcrypt-id" r'', Git.GCrypt.remoteRepoId g (Git.remoteName gcryptr)) of
|
||||||
|
(Just gcryptid, Just cachedgcryptid)
|
||||||
|
| gcryptid /= cachedgcryptid -> resetup gcryptid r''
|
||||||
|
_ -> gen' r'' u c gc
|
||||||
|
where
|
||||||
|
-- A different drive may have been mounted, making a different
|
||||||
|
-- gcrypt remote available. So need to set the cached
|
||||||
|
-- gcrypt-id and annex-uuid of the remote to match the remote
|
||||||
|
-- that is now available. Also need to set the gcrypt particiants
|
||||||
|
-- correctly.
|
||||||
|
resetup gcryptid r = do
|
||||||
|
let u' = genUUIDInNameSpace gCryptNameSpace gcryptid
|
||||||
|
v <- (M.lookup u' <$> readRemoteLog)
|
||||||
|
case (Git.remoteName gcryptr, v) of
|
||||||
|
(Just remotename, Just c') -> do
|
||||||
|
setGcryptEncryption c' remotename
|
||||||
|
setConfig (remoteConfig gcryptr "uuid") (fromUUID u')
|
||||||
|
setConfig (ConfigKey $ Git.GCrypt.remoteConfigKey "gcrypt-id" remotename) gcryptid
|
||||||
|
gen' r u' c' gc
|
||||||
|
_ -> do
|
||||||
|
warning $ "not using unknown gcrypt repository pointed to by remote " ++ Git.repoDescribe r
|
||||||
|
return Nothing
|
||||||
|
|
||||||
gen' :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen' :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen' r u c gc = do
|
gen' r u c gc = do
|
||||||
cst <- remoteCost gc $
|
cst <- remoteCost gc $
|
||||||
if repoCheap r then nearlyCheapRemoteCost else expensiveRemoteCost
|
if repoCheap r then nearlyCheapRemoteCost else expensiveRemoteCost
|
||||||
|
@ -80,7 +105,7 @@ gen' r u c gc = do
|
||||||
, globallyAvailable = globallyAvailableCalc r
|
, globallyAvailable = globallyAvailableCalc r
|
||||||
, remotetype = remote
|
, remotetype = remote
|
||||||
}
|
}
|
||||||
return $ encryptableRemote c
|
return $ Just $ encryptableRemote c
|
||||||
(store this rsyncopts)
|
(store this rsyncopts)
|
||||||
(retrieve this rsyncopts)
|
(retrieve this rsyncopts)
|
||||||
this
|
this
|
||||||
|
@ -117,14 +142,7 @@ gCryptSetup mu c = go $ M.lookup "gitrepo" c
|
||||||
, Param $ Git.GCrypt.urlPrefix ++ gitrepo
|
, Param $ Git.GCrypt.urlPrefix ++ gitrepo
|
||||||
]
|
]
|
||||||
|
|
||||||
{- Configure gcrypt to use the same list of keyids that
|
setGcryptEncryption c' remotename
|
||||||
- were passed to initremote, unless shared encryption
|
|
||||||
- was used. -}
|
|
||||||
case extractCipher c' of
|
|
||||||
Nothing -> noCrypto
|
|
||||||
Just (EncryptedCipher _ _ (KeyIds { keyIds = ks})) ->
|
|
||||||
setConfig (ConfigKey $ Git.GCrypt.remoteParticipantConfigKey remotename) (unwords ks)
|
|
||||||
_ -> noop
|
|
||||||
|
|
||||||
{- Run a git fetch and a push to the git repo in order to get
|
{- Run a git fetch and a push to the git repo in order to get
|
||||||
- its gcrypt-id set up, so that later git annex commands
|
- its gcrypt-id set up, so that later git annex commands
|
||||||
|
@ -143,14 +161,34 @@ gCryptSetup mu c = go $ M.lookup "gitrepo" c
|
||||||
g <- inRepo Git.Config.reRead
|
g <- inRepo Git.Config.reRead
|
||||||
case Git.GCrypt.remoteRepoId g (Just remotename) of
|
case Git.GCrypt.remoteRepoId g (Just remotename) of
|
||||||
Nothing -> error "unable to determine gcrypt-id of remote"
|
Nothing -> error "unable to determine gcrypt-id of remote"
|
||||||
Just v -> do
|
Just gcryptid -> do
|
||||||
let u = genUUIDInNameSpace gCryptNameSpace v
|
let u = genUUIDInNameSpace gCryptNameSpace gcryptid
|
||||||
if Just u == mu || mu == Nothing
|
if Just u == mu || mu == Nothing
|
||||||
then do
|
then do
|
||||||
|
-- Store gcrypt-id in local
|
||||||
|
-- gcrypt repository, for later
|
||||||
|
-- double-check.
|
||||||
|
r <- inRepo $ Git.Construct.fromRemoteLocation gitrepo
|
||||||
|
when (Git.repoIsLocalUnknown r) $ do
|
||||||
|
r' <- liftIO $ Git.Config.read r
|
||||||
|
liftIO $ Git.Command.run [Param "config", Param "core.gcrypt-id", Param gcryptid] r'
|
||||||
gitConfigSpecialRemote u c' "gcrypt" "true"
|
gitConfigSpecialRemote u c' "gcrypt" "true"
|
||||||
return (c', u)
|
return (c', u)
|
||||||
else error "uuid mismatch"
|
else error "uuid mismatch"
|
||||||
|
|
||||||
|
{- Configure gcrypt to use the same list of keyids that
|
||||||
|
- were passed to initremote. (For shared encryption,
|
||||||
|
- gcrypt's default behavior is used.) -}
|
||||||
|
setGcryptEncryption :: RemoteConfig -> String -> Annex ()
|
||||||
|
setGcryptEncryption c remotename = do
|
||||||
|
let participants = ConfigKey $ Git.GCrypt.remoteParticipantConfigKey remotename
|
||||||
|
case extractCipher c of
|
||||||
|
Nothing -> noCrypto
|
||||||
|
Just (EncryptedCipher _ _ (KeyIds { keyIds = ks})) ->
|
||||||
|
setConfig participants (unwords ks)
|
||||||
|
Just (SharedCipher _) ->
|
||||||
|
unsetConfig participants
|
||||||
|
|
||||||
store :: Remote -> Remote.Rsync.RsyncOpts -> (Cipher, Key) -> Key -> MeterUpdate -> Annex Bool
|
store :: Remote -> Remote.Rsync.RsyncOpts -> (Cipher, Key) -> Key -> MeterUpdate -> Annex Bool
|
||||||
store r rsyncopts (cipher, enck) k p
|
store r rsyncopts (cipher, enck) k p
|
||||||
| not $ Git.repoIsUrl (repo r) = guardUsable (repo r) False $
|
| not $ Git.repoIsUrl (repo r) = guardUsable (repo r) False $
|
||||||
|
|
|
@ -92,13 +92,13 @@ configRead r = do
|
||||||
(False, _, NoUUID) -> tryGitConfigRead r
|
(False, _, NoUUID) -> tryGitConfigRead r
|
||||||
_ -> return r
|
_ -> return r
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc
|
gen r u c gc
|
||||||
| Git.GCrypt.isEncrypted r = Remote.GCrypt.gen r u c gc
|
| Git.GCrypt.isEncrypted r = Remote.GCrypt.gen r u c gc
|
||||||
| otherwise = go <$> remoteCost gc defcst
|
| otherwise = go <$> remoteCost gc defcst
|
||||||
where
|
where
|
||||||
defcst = if repoCheap r then cheapRemoteCost else expensiveRemoteCost
|
defcst = if repoCheap r then cheapRemoteCost else expensiveRemoteCost
|
||||||
go cst = new
|
go cst = Just new
|
||||||
where
|
where
|
||||||
new = Remote
|
new = Remote
|
||||||
{ uuid = u
|
{ uuid = u
|
||||||
|
|
|
@ -40,10 +40,10 @@ remote = RemoteType {
|
||||||
setup = glacierSetup
|
setup = glacierSetup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost
|
gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost
|
||||||
where
|
where
|
||||||
new cst = encryptableRemote c
|
new cst = Just $ encryptableRemote c
|
||||||
(storeEncrypted this)
|
(storeEncrypted this)
|
||||||
(retrieveEncrypted this)
|
(retrieveEncrypted this)
|
||||||
this
|
this
|
||||||
|
|
|
@ -35,10 +35,10 @@ remote = RemoteType {
|
||||||
setup = hookSetup
|
setup = hookSetup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc = do
|
gen r u c gc = do
|
||||||
cst <- remoteCost gc expensiveRemoteCost
|
cst <- remoteCost gc expensiveRemoteCost
|
||||||
return $ encryptableRemote c
|
return $ Just $ encryptableRemote c
|
||||||
(storeEncrypted hooktype $ getGpgEncParams (c,gc))
|
(storeEncrypted hooktype $ getGpgEncParams (c,gc))
|
||||||
(retrieveEncrypted hooktype)
|
(retrieveEncrypted hooktype)
|
||||||
Remote {
|
Remote {
|
||||||
|
|
|
@ -67,7 +67,7 @@ remoteList = do
|
||||||
return rs'
|
return rs'
|
||||||
else return rs
|
else return rs
|
||||||
where
|
where
|
||||||
process m t = enumerate t >>= mapM (remoteGen m t)
|
process m t = enumerate t >>= mapM (remoteGen m t) >>= return . catMaybes
|
||||||
|
|
||||||
{- Forces the remoteList to be re-generated, re-reading the git config. -}
|
{- Forces the remoteList to be re-generated, re-reading the git config. -}
|
||||||
remoteListRefresh :: Annex [Remote]
|
remoteListRefresh :: Annex [Remote]
|
||||||
|
@ -80,16 +80,17 @@ remoteListRefresh = do
|
||||||
remoteList
|
remoteList
|
||||||
|
|
||||||
{- Generates a Remote. -}
|
{- Generates a Remote. -}
|
||||||
remoteGen :: (M.Map UUID RemoteConfig) -> RemoteType -> Git.Repo -> Annex Remote
|
remoteGen :: (M.Map UUID RemoteConfig) -> RemoteType -> Git.Repo -> Annex (Maybe Remote)
|
||||||
remoteGen m t r = do
|
remoteGen m t r = do
|
||||||
u <- getRepoUUID r
|
u <- getRepoUUID r
|
||||||
g <- fromRepo id
|
g <- fromRepo id
|
||||||
let gc = extractRemoteGitConfig g (Git.repoDescribe r)
|
let gc = extractRemoteGitConfig g (Git.repoDescribe r)
|
||||||
let c = fromMaybe M.empty $ M.lookup u m
|
let c = fromMaybe M.empty $ M.lookup u m
|
||||||
addHooks <$> generate t r u c gc
|
mrmt <- generate t r u c gc
|
||||||
|
return $ addHooks <$> mrmt
|
||||||
|
|
||||||
{- Updates a local git Remote, re-reading its git config. -}
|
{- Updates a local git Remote, re-reading its git config. -}
|
||||||
updateRemote :: Remote -> Annex Remote
|
updateRemote :: Remote -> Annex (Maybe Remote)
|
||||||
updateRemote remote = do
|
updateRemote remote = do
|
||||||
m <- readRemoteLog
|
m <- readRemoteLog
|
||||||
remote' <- updaterepo $ repo remote
|
remote' <- updaterepo $ repo remote
|
||||||
|
|
|
@ -58,14 +58,14 @@ remote = RemoteType {
|
||||||
setup = rsyncSetup
|
setup = rsyncSetup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc = do
|
gen r u c gc = do
|
||||||
cst <- remoteCost gc expensiveRemoteCost
|
cst <- remoteCost gc expensiveRemoteCost
|
||||||
(transport, url) <- rsyncTransport gc $
|
(transport, url) <- rsyncTransport gc $
|
||||||
fromMaybe (error "missing rsyncurl") $ remoteAnnexRsyncUrl gc
|
fromMaybe (error "missing rsyncurl") $ remoteAnnexRsyncUrl gc
|
||||||
let o = genRsyncOpts c gc transport url
|
let o = genRsyncOpts c gc transport url
|
||||||
let islocal = rsyncUrlIsPath $ rsyncUrl o
|
let islocal = rsyncUrlIsPath $ rsyncUrl o
|
||||||
return $ encryptableRemote c
|
return $ Just $ encryptableRemote c
|
||||||
(storeEncrypted o $ getGpgEncParams (c,gc))
|
(storeEncrypted o $ getGpgEncParams (c,gc))
|
||||||
(retrieveEncrypted o)
|
(retrieveEncrypted o)
|
||||||
Remote
|
Remote
|
||||||
|
|
|
@ -43,10 +43,10 @@ remote = RemoteType {
|
||||||
setup = s3Setup
|
setup = s3Setup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
|
gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
|
||||||
where
|
where
|
||||||
new cst = encryptableRemote c
|
new cst = Just $ encryptableRemote c
|
||||||
(storeEncrypted this)
|
(storeEncrypted this)
|
||||||
(retrieveEncrypted this)
|
(retrieveEncrypted this)
|
||||||
this
|
this
|
||||||
|
|
|
@ -43,9 +43,9 @@ list = do
|
||||||
r <- liftIO $ Git.Construct.remoteNamed "web" Git.Construct.fromUnknown
|
r <- liftIO $ Git.Construct.remoteNamed "web" Git.Construct.fromUnknown
|
||||||
return [r]
|
return [r]
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r _ _ gc =
|
gen r _ _ gc =
|
||||||
return Remote {
|
return $ Just Remote {
|
||||||
uuid = webUUID,
|
uuid = webUUID,
|
||||||
cost = expensiveRemoteCost,
|
cost = expensiveRemoteCost,
|
||||||
name = Git.repoDescribe r,
|
name = Git.repoDescribe r,
|
||||||
|
|
|
@ -46,10 +46,10 @@ remote = RemoteType {
|
||||||
setup = webdavSetup
|
setup = webdavSetup
|
||||||
}
|
}
|
||||||
|
|
||||||
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote
|
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
|
||||||
gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
|
gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
|
||||||
where
|
where
|
||||||
new cst = encryptableRemote c
|
new cst = Just $ encryptableRemote c
|
||||||
(storeEncrypted this)
|
(storeEncrypted this)
|
||||||
(retrieveEncrypted this)
|
(retrieveEncrypted this)
|
||||||
this
|
this
|
||||||
|
|
|
@ -29,7 +29,7 @@ data RemoteTypeA a = RemoteType {
|
||||||
-- enumerates remotes of this type
|
-- enumerates remotes of this type
|
||||||
enumerate :: a [Git.Repo],
|
enumerate :: a [Git.Repo],
|
||||||
-- generates a remote of this type
|
-- generates a remote of this type
|
||||||
generate :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> a (RemoteA a),
|
generate :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> a (Maybe (RemoteA a)),
|
||||||
-- initializes or changes a remote
|
-- initializes or changes a remote
|
||||||
setup :: Maybe UUID -> RemoteConfig -> a (RemoteConfig, UUID)
|
setup :: Maybe UUID -> RemoteConfig -> a (RemoteConfig, UUID)
|
||||||
}
|
}
|
||||||
|
|
1
debian/changelog
vendored
1
debian/changelog
vendored
|
@ -1,5 +1,6 @@
|
||||||
git-annex (4.20130912) UNRELEASED; urgency=low
|
git-annex (4.20130912) UNRELEASED; urgency=low
|
||||||
|
|
||||||
|
* Support hot-swapping of removable drives containing gcrypt repositories.
|
||||||
* remotes: New command, displays a compact table of remotes that
|
* remotes: New command, displays a compact table of remotes that
|
||||||
contain files.
|
contain files.
|
||||||
(Thanks, anarcat for display code and mastensg for inspiration.)
|
(Thanks, anarcat for display code and mastensg for inspiration.)
|
||||||
|
|
Loading…
Reference in a new issue