From 371e5572241f447a5f5ee0b8055a4127000ef798 Mon Sep 17 00:00:00 2001
From: Mateusz Galazyn <mateusz.galazyn@iohk.io>
Date: Thu, 19 Sep 2024 21:47:07 +0200
Subject: [PATCH] try take into account variable k

---
 cardano-testnet/src/Testnet/Defaults.hs    | 8 ++++----
 cardano-testnet/src/Testnet/Start/Types.hs | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/cardano-testnet/src/Testnet/Defaults.hs b/cardano-testnet/src/Testnet/Defaults.hs
index 32029b6333c..7e66c0d8d0b 100644
--- a/cardano-testnet/src/Testnet/Defaults.hs
+++ b/cardano-testnet/src/Testnet/Defaults.hs
@@ -32,8 +32,8 @@ module Testnet.Defaults
   , plutusV3Script
   ) where
 
-import           Cardano.Api (CardanoEra (..), File (..), pshow, ShelleyBasedEra (..),
-                   toCardanoEra, unsafeBoundedRational, AnyShelleyBasedEra (..))
+import           Cardano.Api (AnyShelleyBasedEra (..), CardanoEra (..), File (..),
+                   ShelleyBasedEra (..), pshow, toCardanoEra, unsafeBoundedRational)
 import qualified Cardano.Api.Shelley as Api
 
 import           Cardano.Ledger.Alonzo.Core (PParams (..))
@@ -433,7 +433,7 @@ defaultShelleyGenesis asbe startTime maxSupply options = do
       activeSlotsCoeff = round (shelleyActiveSlotsCoeff * 100) % 100
       -- make security param k satisfy: epochLength = 10 * k / f
       -- TODO: find out why this actually degrates network stability - turned off for now
-      -- securityParam = ceiling $ fromIntegral epochLength * cardanoActiveSlotsCoeff / 10
+      securityParam = ceiling $ fromIntegral epochLength * shelleyActiveSlotsCoeff / 10
       pVer = eraToProtocolVersion asbe
       protocolParams = Api.sgProtocolParams Api.shelleyGenesisDefaults
       protocolParamsWithPVer = protocolParams & ppProtocolVersionL' .~ pVer
@@ -444,7 +444,7 @@ defaultShelleyGenesis asbe startTime maxSupply options = do
         , Api.sgNetworkMagic = fromIntegral magic
         , Api.sgProtocolParams = protocolParamsWithPVer
         -- using default from shelley genesis k = 2160
-        -- , Api.sgSecurityParam = securityParam
+        , Api.sgSecurityParam = securityParam
         , Api.sgSlotLength = secondsToNominalDiffTimeMicro $ realToFrac slotLength
         , Api.sgSystemStart = startTime
         }
diff --git a/cardano-testnet/src/Testnet/Start/Types.hs b/cardano-testnet/src/Testnet/Start/Types.hs
index 7ab6af6a5e7..4f4817daff1 100644
--- a/cardano-testnet/src/Testnet/Start/Types.hs
+++ b/cardano-testnet/src/Testnet/Start/Types.hs
@@ -87,9 +87,9 @@ data ShelleyTestnetOptions = ShelleyTestnetOptions
 instance Default ShelleyTestnetOptions where
   def = ShelleyTestnetOptions
     { shelleyTestnetMagic = 42
-    , shelleyEpochLength = 500
-    , shelleySlotLength = 0.1
-    , shelleyActiveSlotsCoeff = 0.05
+    , shelleyEpochLength = 150_000
+    , shelleySlotLength = 0.15
+    , shelleyActiveSlotsCoeff = 0.1
     }
 
 -- | Specify a BFT node (Pre-Babbage era only) or an SPO (Shelley era onwards only)