locli: report DRep count in summary

Author: mgmeier

bench/locli/src/Cardano/Analysis/API/Context.hs

@@ -6,18 +6,17 @@
 {-# LANGUAGE UndecidableInstances #-}
 module Cardano.Analysis.API.Context (module Cardano.Analysis.API.Context) where
 
-import Cardano.Prelude
+import           Cardano.Prelude
 
-import Control.Monad (fail)
-
-import Data.Aeson ( FromJSON (..), ToJSON (..), Value
-                  , withObject, object, (.:), (.:?), (.=), (.!=))
-import Data.Aeson.Key qualified as AE
-import Data.Aeson.KeyMap qualified as AE
-import Data.Aeson.Types qualified as AE
-import Data.Map.Strict qualified as Map
-import Data.Text qualified as T
-import Data.Time.Clock (UTCTime, NominalDiffTime)
+import           Control.Monad (fail)
+import           Data.Aeson (FromJSON (..), ToJSON (..), Value, object, withObject, (.!=), (.:),
+                   (.:?), (.=))
+import qualified Data.Aeson.Key as AE
+import qualified Data.Aeson.KeyMap as AE
+import qualified Data.Aeson.Types as AE
+import qualified Data.Map.Strict as Map
+import qualified Data.Text as T
+import           Data.Time.Clock (NominalDiffTime, UTCTime)
 
 
 -- This is difficult: we have two different genesis-related structures:
@@ -28,8 +27,17 @@ data GenesisSpec
   = GenesisSpec
   { delegators          :: Word64
   , utxo                :: Word64
+  , dreps               :: Word64
   }
-  deriving (Eq, Generic, Show, ToJSON, FromJSON, NFData)
+  deriving (Eq, Generic, Show, ToJSON, NFData)
+
+-- support legacy profile content that does not specify DRep count
+instance FromJSON GenesisSpec where
+  parseJSON = withObject "profile gensis" $ \o ->
+    GenesisSpec
+      <$> o .:  "delegators"
+      <*> o .:  "utxo"
+      <*> o .:? "dreps"       .!= 0
 
 -- | Partial 'Cardano.Ledger.Shelley.Genesis.ShelleyGenesis'
 data Genesis

bench/locli/src/Cardano/Analysis/API/Metrics.hs

@@ -43,7 +43,7 @@ sumFieldsReport =
   , "ghc_version"
   ] ++ (FieldName <$> manifestPackages) ++
   [ "era"
-  , "delegators", "utxo"
+  , "delegators", "utxo", "dreps"
   , "add_tx_size", "inputs_per_tx", "outputs_per_tx" , "tps", "tx_count"
   , "plutusScript"
   , "sumHosts", "sumLogObjectsTotal"
@@ -98,6 +98,10 @@ instance (KnownCDF f) => TimelineFields (Summary f)  where
       "Starting UTxO set size"
       "Extra UTxO set size at the beginning of the benchmark"
 
+   <> fScalar "dreps"                  W12 Cnt (IWord64 $          dreps.sumGenesisSpec)
+      "DRep count"
+      "Amount of DReps in ledger, number of DRep delegations equals number of stake delegations"
+
    <> fScalar "add_tx_size"            W6  B   (IWord64 $      add_tx_size.sumWorkload
                                                                )
       "Extra tx payload"