--setSigningKey st keyFpr

getIdentities :: IO [KeyID]
getIdentities = do
    ctx <- Gpg.ctxNew Nothing
    keys <- Gpg.getKeys ctx True
    map toKeyID . catMaybes <$> mapM Gpg.keyFingerprint keys

-- |  Get all available private keys
getIdentities :: IO [KeyID]
getIdentities = do
    ctx <- Gpg.ctxNew Nothing
    keys <- Gpg.getKeys ctx True
    map toKeyID . catMaybes <$> mapM Gpg.keyFingerprint keys

-- |  Get all available private keys
getIdentities = do
    ctx <- Gpg.ctxNew Nothing
    keys <- Gpg.getKeys ctx True
    map toKeyID . catMaybes <$> mapM Gpg.keyFingerprint keys

-- |  Get all available private keys