From aa0bb2e43b6de5301939ca4dad2f5e264e469227 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 17 Aug 2016 15:38:35 -0400 Subject: simplify Don't need to check key server for --gpgkeyid backup, because the same switch has to be provided at restore time. --- keysafe.hs | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'keysafe.hs') diff --git a/keysafe.hs b/keysafe.hs index 7756b26..4666dd3 100644 --- a/keysafe.hs +++ b/keysafe.hs @@ -48,19 +48,14 @@ dispatch cmdline ui tunables = do go mode (CmdLine.secretkeysource cmdline) where storage = CmdLine.storage cmdline - go CmdLine.Backup (Just secretkeysource@(GpgKey kid)) = do - ok <- Gpg.knownByKeyServer kid - unless ok $ - showError ui "Your gpg public key has to be stored on the keyservers before you can back it up by keyid. Either use gpg --send-key to store the public key on the keyservers, or omit the --gpgkeyid option" - backup storage ui tunables secretkeysource - =<< getSecretKey secretkeysource go CmdLine.Backup (Just secretkeysource) = backup storage ui tunables secretkeysource =<< getSecretKey secretkeysource - go CmdLine.Backup Nothing = - backup storage ui tunables Gpg.anyKey =<< Gpg.getKeyToBackup ui go CmdLine.Restore (Just secretkeydest) = restore storage ui secretkeydest + go CmdLine.Backup Nothing = + backup storage ui tunables Gpg.anyKey + =<< Gpg.getKeyToBackup ui go CmdLine.Restore Nothing = restore storage ui Gpg.anyKey go CmdLine.Benchmark _ = -- cgit v1.2.3