{-# LANGUAGE DeriveGeneric #-}
{-# Language DerivingStrategies #-}
{-# Language DeriveAnyClass #-}

module Cardano.Logging.Types.NodeStartupInfo
  ( NodeStartupInfo (..)
  )
  where

import           Control.DeepSeq (NFData)
import           Data.Aeson (FromJSON, ToJSON)
import           Data.Text (Text)
import           Data.Time (NominalDiffTime)
import           Data.Word (Word64)
import           GHC.Generics (Generic)

-- | NodeStartupInfo

-- | This information is taken from 'BasicInfoShelleyBased'. It is required for
--   'cardano-tracer' service (particularly, for RTView).
data NodeStartupInfo = NodeStartupInfo
  { NodeStartupInfo -> Text
suiEra               :: Text
  , NodeStartupInfo -> NominalDiffTime
suiSlotLength        :: NominalDiffTime
  , NodeStartupInfo -> Word64
suiEpochLength       :: Word64
  , NodeStartupInfo -> Word64
suiSlotsPerKESPeriod :: Word64
  }
  deriving stock
    (NodeStartupInfo -> NodeStartupInfo -> Bool
(NodeStartupInfo -> NodeStartupInfo -> Bool)
-> (NodeStartupInfo -> NodeStartupInfo -> Bool)
-> Eq NodeStartupInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NodeStartupInfo -> NodeStartupInfo -> Bool
== :: NodeStartupInfo -> NodeStartupInfo -> Bool
$c/= :: NodeStartupInfo -> NodeStartupInfo -> Bool
/= :: NodeStartupInfo -> NodeStartupInfo -> Bool
Eq, Int -> NodeStartupInfo -> ShowS
[NodeStartupInfo] -> ShowS
NodeStartupInfo -> String
(Int -> NodeStartupInfo -> ShowS)
-> (NodeStartupInfo -> String)
-> ([NodeStartupInfo] -> ShowS)
-> Show NodeStartupInfo
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NodeStartupInfo -> ShowS
showsPrec :: Int -> NodeStartupInfo -> ShowS
$cshow :: NodeStartupInfo -> String
show :: NodeStartupInfo -> String
$cshowList :: [NodeStartupInfo] -> ShowS
showList :: [NodeStartupInfo] -> ShowS
Show, (forall x. NodeStartupInfo -> Rep NodeStartupInfo x)
-> (forall x. Rep NodeStartupInfo x -> NodeStartupInfo)
-> Generic NodeStartupInfo
forall x. Rep NodeStartupInfo x -> NodeStartupInfo
forall x. NodeStartupInfo -> Rep NodeStartupInfo x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. NodeStartupInfo -> Rep NodeStartupInfo x
from :: forall x. NodeStartupInfo -> Rep NodeStartupInfo x
$cto :: forall x. Rep NodeStartupInfo x -> NodeStartupInfo
to :: forall x. Rep NodeStartupInfo x -> NodeStartupInfo
Generic)
  deriving anyclass
    (NodeStartupInfo -> ()
(NodeStartupInfo -> ()) -> NFData NodeStartupInfo
forall a. (a -> ()) -> NFData a
$crnf :: NodeStartupInfo -> ()
rnf :: NodeStartupInfo -> ()
NFData, [NodeStartupInfo] -> Encoding
[NodeStartupInfo] -> Value
NodeStartupInfo -> Bool
NodeStartupInfo -> Encoding
NodeStartupInfo -> Value
(NodeStartupInfo -> Value)
-> (NodeStartupInfo -> Encoding)
-> ([NodeStartupInfo] -> Value)
-> ([NodeStartupInfo] -> Encoding)
-> (NodeStartupInfo -> Bool)
-> ToJSON NodeStartupInfo
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> (a -> Bool)
-> ToJSON a
$ctoJSON :: NodeStartupInfo -> Value
toJSON :: NodeStartupInfo -> Value
$ctoEncoding :: NodeStartupInfo -> Encoding
toEncoding :: NodeStartupInfo -> Encoding
$ctoJSONList :: [NodeStartupInfo] -> Value
toJSONList :: [NodeStartupInfo] -> Value
$ctoEncodingList :: [NodeStartupInfo] -> Encoding
toEncodingList :: [NodeStartupInfo] -> Encoding
$comitField :: NodeStartupInfo -> Bool
omitField :: NodeStartupInfo -> Bool
ToJSON, Maybe NodeStartupInfo
Value -> Parser [NodeStartupInfo]
Value -> Parser NodeStartupInfo
(Value -> Parser NodeStartupInfo)
-> (Value -> Parser [NodeStartupInfo])
-> Maybe NodeStartupInfo
-> FromJSON NodeStartupInfo
forall a.
(Value -> Parser a)
-> (Value -> Parser [a]) -> Maybe a -> FromJSON a
$cparseJSON :: Value -> Parser NodeStartupInfo
parseJSON :: Value -> Parser NodeStartupInfo
$cparseJSONList :: Value -> Parser [NodeStartupInfo]
parseJSONList :: Value -> Parser [NodeStartupInfo]
$comittedField :: Maybe NodeStartupInfo
omittedField :: Maybe NodeStartupInfo
FromJSON)