Add phases definition for the local-cluster

lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster/Monitoring/Phase.hs

@@ -0,0 +1,69 @@
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DerivingStrategies #-}
+
+module Cardano.Wallet.Launch.Cluster.Monitoring.Phase
+    ( Phase (..)
+    , RelayNode (..)
+    , History (..)
+    )
+where
+
+import Prelude
+
+import Cardano.Launcher.Node
+    ( CardanoNodeConn
+    , cardanoNodeConn
+    , nodeSocketFile
+    )
+import Data.Aeson
+    ( FromJSON
+    , ToJSON
+    )
+import Data.Aeson.Types
+    ( FromJSON (..)
+    , ToJSON (..)
+    )
+import Data.Map
+    ( Map
+    )
+import Data.Time
+    ( UTCTime
+    )
+import GHC.Generics
+    ( Generic
+    )
+
+-- | A relay node as a reference to it's socket file or pipe
+newtype RelayNode = RelayNode CardanoNodeConn
+    deriving stock (Eq, Show, Generic)
+
+instance ToJSON RelayNode where
+    toJSON (RelayNode f) = toJSON $ nodeSocketFile f
+
+instance FromJSON RelayNode where
+    parseJSON x = do
+        f <- parseJSON x
+        case cardanoNodeConn f of
+            Right conn -> pure $ RelayNode conn
+            Left e -> fail e
+
+-- | The different phases the cluster can be in. We use the convention to report
+-- the start of a phase.
+data Phase
+    = RetrievingFunds
+    | Metadata
+    | Genesis
+    | Pool0
+    | Funding
+    | Pools
+    | Relay
+    | Cluster (Maybe RelayNode)
+    deriving stock (Eq, Show, Generic)
+    deriving anyclass (ToJSON, FromJSON)
+
+-- | The history of the cluster phases
+newtype History = History
+    { history :: Map UTCTime Phase
+    }
+    deriving stock (Eq, Show)

lib/local-cluster/local-cluster.cabal

@@ -52,6 +52,7 @@ library
     Cardano.Wallet.Launch.Cluster.KeyRegistration
     Cardano.Wallet.Launch.Cluster.Logging
     Cardano.Wallet.Launch.Cluster.MonetaryPolicyScript
+    Cardano.Wallet.Launch.Cluster.Monitoring.Phase
     Cardano.Wallet.Launch.Cluster.Node.GenNodeConfig
     Cardano.Wallet.Launch.Cluster.Node.GenTopology
     Cardano.Wallet.Launch.Cluster.Node.NodeParams