newGpgKey :: IO BS.ByteString
newGpgKey = do
    ctx <- Gpg.ctxNew Nothing
    Just kid <- Gpg.genKeyFingerprint <$>
                   Gpg.genKey ctx (mkKeyRSA $ pontariusKeyName)
    return kid
newGpgKey :: IO BS.ByteString
newGpgKey = do
    ctx <- Gpg.ctxNew Nothing
    Just kid <- Gpg.genKeyFingerprint <$>
                   Gpg.genKey ctx (mkKeyRSA $ pontariusKeyName)
    return kid
newGpgKey = do
    ctx <- Gpg.ctxNew Nothing
    Just kid <- Gpg.genKeyFingerprint <$>
                   Gpg.genKey ctx (mkKeyRSA $ pontariusKeyName)
    return kid