mkKeyRSA :: String -> String
mkKeyRSA name = unlines $
 [ "<GnupgKeyParms format=\"internal\">"
 , "Key-Type: RSA"
 , "Key-Length: 4096"
 , "Key-Usage: sign, auth"
 , "Expire-Date: 0"
 , "Name-Real: " ++ name
 , "</GnupgKeyParms>"
 ]
mkKeyRSA :: String -> String
mkKeyRSA name = unlines $
 [ "<GnupgKeyParms format=\"internal\">"
 , "Key-Type: RSA"
 , "Key-Length: 4096"
 , "Key-Usage: sign, auth"
 , "Expire-Date: 0"
 , "Name-Real: " ++ name
 , "</GnupgKeyParms>"
 ]
mkKeyRSA name = unlines $
 [ "<GnupgKeyParms format=\"internal\">"
 , "Key-Type: RSA"
 , "Key-Length: 4096"
 , "Key-Usage: sign, auth"
 , "Expire-Date: 0"
 , "Name-Real: " ++ name
 , "</GnupgKeyParms>"
 ]