pPublicKey :: Lexer PublicKey
pPublicKey = do
    str <- (<>) <$> takeP (Just "base64") 86 <*> string "=="
    toParsecError $ parseFullPublicKey str
pPublicKey :: Lexer PublicKey
pPublicKey = do
    str <- (<>) <$> takeP (Just "base64") 86 <*> string "=="
    toParsecError $ parseFullPublicKey str
pPublicKey = do
    str <- (<>) <$> takeP (Just "base64") 86 <*> string "=="
    toParsecError $ parseFullPublicKey str