{-# LANGUAGE FlexibleContexts  #-}
{-# LANGUAGE OverloadedStrings #-}

-- |
-- Module      :  Network.Polkadot.Rpc.Author
-- Copyright   :  Aleksandr Krupenkin 2016-2024
-- License     :  Apache-2.0
--
-- Maintainer  :  mail@akru.me
-- Stability   :  experimental
-- Portability :  portable
--
-- Polkadot RPC methods with `author` prefix.
--

module Network.Polkadot.Rpc.Author where

import           Data.ByteArray.HexString   (HexString)
import           Data.Text                  (Text)
import           Network.JsonRpc.TinyClient (JsonRpc (..))

-- | Returns true if the keystore has private keys for the given public key and key type.
hasKey :: JsonRpc m
       => HexString
       -- ^ Public key
       -> Text
       -- ^ Key type
       -> m Bool
{-# INLINE hasKey #-}
hasKey :: forall (m :: * -> *). JsonRpc m => HexString -> Text -> m Bool
hasKey = Text -> HexString -> Text -> m Bool
forall a. Remote m a => Text -> a
forall (m :: * -> *) a. (JsonRpc m, Remote m a) => Text -> a
remote Text
"author_hasKey"

-- | Returns true if the keystore has private keys for the given session public keys.
hasSessionKeys :: JsonRpc m
               => HexString
               -- ^ Session keys
               -> m Bool
{-# INLINE hasSessionKeys #-}
hasSessionKeys :: forall (m :: * -> *). JsonRpc m => HexString -> m Bool
hasSessionKeys = Text -> HexString -> m Bool
forall a. Remote m a => Text -> a
forall (m :: * -> *) a. (JsonRpc m, Remote m a) => Text -> a
remote Text
"author_hasSessionKeys"

-- | Insert a key into the keystore.
insertKey :: JsonRpc m
          => Text
          -- ^ Key type
          -> Text
          -- ^ Key secret URI
          -> HexString
          -- ^ Public key
          -> m HexString
{-# INLINE insertKey #-}
insertKey :: forall (m :: * -> *).
JsonRpc m =>
Text -> Text -> HexString -> m HexString
insertKey = Text -> Text -> Text -> HexString -> m HexString
forall a. Remote m a => Text -> a
forall (m :: * -> *) a. (JsonRpc m, Remote m a) => Text -> a
remote Text
"author_insertKey"

-- | Returns all pending extrinsics, potentially grouped by sender.
pendingExtrinsics :: JsonRpc m => m [HexString]
{-# INLINE pendingExtrinsics #-}
pendingExtrinsics :: forall (m :: * -> *). JsonRpc m => m [HexString]
pendingExtrinsics = Text -> m [HexString]
forall a. Remote m a => Text -> a
forall (m :: * -> *) a. (JsonRpc m, Remote m a) => Text -> a
remote Text
"author_pendingExtrinsics"

-- | Remove given extrinsic from the pool and temporarily ban it to prevent reimporting.
removeExtrinsic :: JsonRpc m
                => [HexString]
                -- ^ Extrinsic or hash
                -> m HexString
{-# INLINE removeExtrinsic #-}
removeExtrinsic :: forall (m :: * -> *). JsonRpc m => [HexString] -> m HexString
removeExtrinsic = Text -> [HexString] -> m HexString
forall a. Remote m a => Text -> a
forall (m :: * -> *) a. (JsonRpc m, Remote m a) => Text -> a
remote Text
"author_removeExtrinsic"

-- | Generate new session keys and returns the corresponding public keys.
rotateKeys :: JsonRpc m => m HexString
{-# INLINE rotateKeys #-}
rotateKeys :: forall (m :: * -> *). JsonRpc m => m HexString
rotateKeys = Text -> m HexString
forall a. Remote m a => Text -> a
forall (m :: * -> *) a. (JsonRpc m, Remote m a) => Text -> a
remote Text
"author_rotateKeys"

-- | Submit a fully formatted extrinsic for block inclusion.
submitExtrinsic :: JsonRpc m
                => HexString
                -- ^ Extrinsic
                -> m HexString
                -- ^ Hash
{-# INLINE submitExtrinsic #-}
submitExtrinsic :: forall (m :: * -> *). JsonRpc m => HexString -> m HexString
submitExtrinsic = Text -> HexString -> m HexString
forall a. Remote m a => Text -> a
forall (m :: * -> *) a. (JsonRpc m, Remote m a) => Text -> a
remote Text
"author_submitExtrinsic"