Control.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeOperators #-}

module Bitcoin.Core.RPC.Control (
    stop,
    uptime,
) where

import Data.Proxy (Proxy (..))
import Data.Word (Word32)
import Servant.API ((:<|>) (..))

import Servant.Bitcoind (
    BitcoindClient,
    BitcoindEndpoint,
    C,
    CX,
    toBitcoindClient,
 )

type ControlRpc =
    BitcoindEndpoint "stop" CX
        :<|> BitcoindEndpoint "uptime" (C Word32)

-- | Request a graceful shutdown of Bitcoin Core.
stop :: BitcoindClient ()

-- | Returns the total uptime of the server (in seconds)
uptime :: BitcoindClient Word32
stop :<|> uptime = toBitcoindClient $ Proxy @ControlRpc