cardano-rt-view-0.1.0
Safe HaskellNone
LanguageHaskell2010

Cardano.RTView.GUI.Elements

Synopsis

Documentation

type NodesStateElements = [(Text, NodeStateElements, [PeerInfoItem])] Source #

GUI elements for all nodes, tuples from nodeName, its elements and prepared peers items.

type NodeStateElements = Map ElementName Element Source #

GUI elements containing current node state (info, metrics). These elements are continuously updating using |LogObject|s received by |TraceAcceptor|s.

data ElementName Source #

Instances

Instances details
Eq ElementName Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Ord ElementName Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Show ElementName Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Generic ElementName Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Associated Types

type Rep ElementName :: Type -> Type #

NFData ElementName Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Methods

rnf :: ElementName -> () #

type Rep ElementName Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

type Rep ElementName = D1 ('MetaData "ElementName" "Cardano.RTView.GUI.Elements" "cardano-rt-view-0.1.0-2dTcUgWcrqcJLsPJljvoZp" 'False) ((((((C1 ('MetaCons "ElNodeProtocol" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElNodeVersion" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElNodePlatform" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElNodeCommitHref" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElActiveNode" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElUptime" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElEpoch" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElSlot" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "ElBlocksNumber" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElBlocksForgedNumber" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElNodeCannotForge" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElChainDensity" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElNodeIsLeaderNumber" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElSlotsMissedNumber" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElTxsProcessed" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElPeersNumber" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: ((((C1 ('MetaCons "ElTraceAcceptorHost" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElTraceAcceptorPort" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElTraceAcceptorEndpoint" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElOpCertStartKESPeriod" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElCurrentKESPeriod" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElRemainingKESPeriods" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElNodeErrors" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElNodeErrorsTab" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "ElMempoolTxsNumber" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElMempoolTxsPercent" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElMempoolBytes" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElMempoolBytesPercent" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElMempoolMaxTxs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElMempoolMaxBytes" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElMemory" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ElMemoryMax" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElMemoryMaxTotal" 'PrefixI 'False) (U1 :: Type -> Type))))))) :+: (((((C1 ('MetaCons "ElMemoryPercent" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElCPUPercent" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElCPULast" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElCPUNs" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElDiskUsageR" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElDiskUsageRMax" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElDiskUsageRMaxTotal" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElDiskUsageRPercent" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "ElDiskUsageW" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElDiskUsageWMax" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElDiskUsageWMaxTotal" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElDiskUsageWPercent" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElNetworkUsageIn" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElNetworkUsageInMaxTotal" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElNetworkUsageOut" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElNetworkUsageOutMaxTotal" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: ((((C1 ('MetaCons "ElRTSMemoryAllocated" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElRTSMemoryUsed" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElRTSMemoryUsedPercent" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElRTSGcCpu" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElRTSGcElapsed" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElRTSGcNum" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElRTSGcMajorNum" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElMempoolBytesProgress" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: (((C1 ('MetaCons "ElMempoolBytesProgressBox" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElMempoolTxsProgress" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElMempoolTxsProgressBox" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElRTSMemoryProgress" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "ElRTSMemoryProgressBox" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElMemoryUsageChart" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "ElCPUUsageChart" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ElDiskUsageChart" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ElNetworkUsageChart" 'PrefixI 'False) (U1 :: Type -> Type))))))))

data ElementValue Source #

Instances

Instances details
Generic ElementValue Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Associated Types

type Rep ElementValue :: Type -> Type #

NFData ElementValue Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Methods

rnf :: ElementValue -> () #

type Rep ElementValue Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

data PeerInfoItem Source #

An item for each connected peer, contains a parent element and list of child elements.

Instances

Instances details
Generic PeerInfoItem Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Associated Types

type Rep PeerInfoItem :: Type -> Type #

NFData PeerInfoItem Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Methods

rnf :: PeerInfoItem -> () #

type Rep PeerInfoItem Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

type Rep PeerInfoItem = D1 ('MetaData "PeerInfoItem" "Cardano.RTView.GUI.Elements" "cardano-rt-view-0.1.0-2dTcUgWcrqcJLsPJljvoZp" 'False) (C1 ('MetaCons "PeerInfoItem" 'PrefixI 'True) (S1 ('MetaSel ('Just "piItem") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Element) :*: S1 ('MetaSel ('Just "piItemElems") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 PeerInfoElements)))

data PeerInfoElements Source #

Instances

Instances details
Generic PeerInfoElements Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Associated Types

type Rep PeerInfoElements :: Type -> Type #

NFData PeerInfoElements Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

Methods

rnf :: PeerInfoElements -> () #

type Rep PeerInfoElements Source # 
Instance details

Defined in Cardano.RTView.GUI.Elements

type Rep PeerInfoElements = D1 ('MetaData "PeerInfoElements" "Cardano.RTView.GUI.Elements" "cardano-rt-view-0.1.0-2dTcUgWcrqcJLsPJljvoZp" 'False) (C1 ('MetaCons "PeerInfoElements" 'PrefixI 'True) ((S1 ('MetaSel ('Just "pieEndpoint") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Element) :*: (S1 ('MetaSel ('Just "pieBytesInF") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Element) :*: S1 ('MetaSel ('Just "pieReqsInF") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Element))) :*: (S1 ('MetaSel ('Just "pieBlocksInF") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Element) :*: (S1 ('MetaSel ('Just "pieSlotNumber") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Element) :*: S1 ('MetaSel ('Just "pieStatus") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Element)))))

(<+>) :: [HTMLW3Class] -> [HTMLClass] -> String Source #

Operator for class names concatenation. Please note that w3-classes should be the first, because our own classes override some of them.

Orphan instances

NFData Element Source # 
Instance details

Methods

rnf :: Element -> () #