CLB util improvement

uhbif19 · May 28, 2024 · 546b59f · 546b59f
1 parent 872d490
commit 546b59f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Cardano/CEM/Monads/CLB.hs b/src/Cardano/CEM/Monads/CLB.hs
@@ -84,9 +84,13 @@ instance (MonadFail m) => MonadSubmitTx (ClbT m) where
 instance (MonadFail m) => MonadTest (ClbT m) where
   getTestWalletSks = return $ map intToCardanoSk [1 .. 10]
 
+genesisClbState :: Value -> ClbState
+genesisClbState genesisValue =
+  initClb defaultBabbage genesisValue genesisValue
+
 execOnIsolatedClb :: Value -> ClbT IO a -> IO a
 execOnIsolatedClb genesisValue action =
   fst
     <$> runStateT
       (unwrapClbT action)
-      (initClb defaultBabbage genesisValue genesisValue)
+      (genesisClbState genesisValue)