{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
module Bitcoin.Core.RPC.Generating
( generateToAddress
) where
import Data.Proxy (Proxy (..))
import Data.Text (Text)
import Data.Word (Word32)
import Network.Haskoin.Block (BlockHash)
import Servant.Bitcoind (BitcoindClient, BitcoindEndpoint, C, I,
O, toBitcoindClient)
type GeneratingRpc = BitcoindEndpoint "generatetoaddress" (I Word32 -> I Text -> O Word32 -> C [BlockHash])
generateToAddress
:: Word32
-> Text
-> Maybe Word32
-> BitcoindClient [BlockHash]
generateToAddress = toBitcoindClient $ Proxy @GeneratingRpc