wip

cardano-foundation · Jun 21, 2022 · 8f5aab0 · 8f5aab0
1 parent 0f8bd9e
commit 8f5aab0
Showing 1 changed file with 8 additions and 11 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Launch/Cluster.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Launch/Cluster.hs
@@ -249,6 +249,8 @@ import UnliftIO.MVar
 import qualified Cardano.Chain.Common as Byron
 import qualified Cardano.Chain.UTxO as Legacy
 import qualified Cardano.Ledger.Address as Ledger
+import Cardano.Ledger.Shelley.API
+    ( ShelleyGenesisStaking (sgsPools) )
 import qualified Cardano.Ledger.Shelley.API as Ledger
 import qualified Cardano.Ledger.Shelley.Genesis as Ledger
 import qualified Cardano.Wallet.Byron.Compatibility as Byron
@@ -595,6 +597,9 @@ generateGenesis tr dir systemStart initialFunds = do
     let initialFunds' = sgInitialFunds sg
             <> extraInitialFunds
 
+    let owner = either (error . show) id $ Aeson.eitherDecode $ Aeson.encode
+            [ Aeson.String "5820a12804d805eff46c691da5b11eb703cbf7463983e325621b4100"
+            ]
 
     let sg' = sg
             { sgSystemStart = systemStart'
@@ -609,6 +614,9 @@ generateGenesis tr dir systemStart initialFunds = do
             , sgMaxLovelaceSupply = 1000000000000000000
             , sgProtocolParams = pparams'
             , sgInitialFunds = initialFunds'
+            , sgStaking = (sgStaking sg)
+                { sgsPools = Map.map (\p -> p { Ledger._poolOwners = owner }) (sgsPools $ sgStaking sg)
+                }
             , sgGenDelegs = fromRight (error "todo") $ Aeson.eitherDecode $ Aeson.encode [aesonQQ| {
                     "8ae01cab15f6235958b1147e979987bbdb90788f7c4e185f1632427a": {
                         "delegate": "b7bf59bb963aa785afe220f5b0d3deb826fd0bcaeeee58cb81ab443d",
@@ -620,17 +628,6 @@ generateGenesis tr dir systemStart initialFunds = do
 
     Aeson.encodeFile (dir </> "genesis.json") sg'
 
---        >>= withAddedPParam "protocolVersion" (Aeson.object ["major" .= Aeson.Number 7, "minor" .= Aeson.Number 0 ])
---
---        (Aeson.object
---                ["8ae01cab15f6235958b1147e979987bbdb90788f7c4e185f1632427a"
---                    .= Aeson.object
---                        [ "delegate" .= Aeson.String "b7bf59bb963aa785afe220f5b0d3deb826fd0bcaeeee58cb81ab443d"
---                        , "vrf" .= Aeson.String "4ebcf8b4c13c24d89144d72f544d1c425b4a3aa1ace30af4eb72752e75b40d3e"
---                        ]
---                ])
---        >>= withAddedPParam "decentralizationParam" (Aeson.Number 0.01)
---        >>= Aeson.encodeFile (dir </> "genesis.json")
   where
     extraInitialFunds :: Map (Ledger.Addr (Crypto StandardShelley)) Ledger.Coin
     extraInitialFunds = Map.fromList