support SharedPubKeyCipher here

This commit is contained in:
Joey Hess 2016-05-11 12:37:13 -04:00
parent 2ca16e440c
commit 6337a5466e
Failed to extract signature

View file

@ -259,7 +259,10 @@ getRepoEncryption (Just _) (Just c) = case extractCipher c of
[whamlet|not encrypted|]
(Just (SharedCipher _)) ->
[whamlet|encrypted: encryption key stored in git repository|]
(Just (EncryptedCipher _ _ (KeyIds { keyIds = ks }))) -> do
(Just (EncryptedCipher _ _ ks)) -> desckeys ks
(Just (SharedPubKeyCipher _ ks)) -> desckeys ks
where
desckeys (KeyIds { keyIds = ks }) = do
cmd <- liftAnnex $ gpgCmd <$> Annex.getGitConfig
knownkeys <- liftIO (secretKeys cmd)
[whamlet|