diff options
Diffstat (limited to 'Gpg.hs')
-rw-r--r-- | Gpg.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -22,13 +22,13 @@ import qualified Data.Text as T -- If there is only one gpg secret key, -- the choice is obvious. Otherwise prompt the user with a list. getKeyToBackup :: UI -> IO SecretKey -getKeyToBackup ui = go =<< Gpg.listSecretKeys +getKeyToBackup ui = go =<< listSecretKeys where go [] = do showError ui "You have no gpg secret keys to back up." error "Aborting on no gpg secret keys." - go [(_, kid)] = Gpg.getSecretKey kid - go l = maybe (error "Canceled") Gpg.getSecretKey + go [(_, kid)] = getSecretKey kid + go l = maybe (error "Canceled") getSecretKey =<< promptKeyId ui "Pick gpg secret key" "Pick gpg secret key to back up:" l |