Update cardano-testnet.cabal to expose Testnet.{Utils,Topology} and

Testnet.Commands.Genesis
IntersectMBO · Jun 2, 2023 · f322d47 · f322d47
1 parent 816f52d
commit f322d47
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/cardano-testnet/cardano-testnet.cabal b/cardano-testnet/cardano-testnet.cabal
@@ -38,6 +38,9 @@ library
                       , cardano-cli
                       , cardano-crypto-class
                       , cardano-crypto-wrapper
+                      , cardano-ledger-alonzo
+                      , cardano-ledger-conway
+                      , cardano-ledger-core
                       , cardano-git-rev
                       , cardano-ledger-core
                       , cardano-ledger-byron
@@ -72,7 +75,10 @@ library
   exposed-modules:      Cardano.Testnet
                         Testnet.Babbage
                         Testnet.Byron
+                        Testnet.Commands.Genesis
                         Testnet.Options
+                        Testnet.Topology 
+                        Testnet.Utils
                         Testnet.Util.Assert
                         Testnet.Util.Base
                         Testnet.Util.Cli
@@ -89,11 +95,9 @@ library
                         Testnet
                         Testnet.Cardano
                         Testnet.Conf
-                        Testnet.Commands.Genesis
                         Testnet.Commands.Governance
                         Testnet.Run
                         Testnet.Shelley
-                        Testnet.Utils
                         Paths_cardano_testnet
 
   autogen-modules:      Paths_cardano_testnet

diff --git a/cardano-testnet/src/Testnet/Util/Base.hs b/cardano-testnet/src/Testnet/Util/Base.hs
@@ -15,6 +15,8 @@ import qualified Hedgehog.Extras.Test.Base as H
 integration :: HasCallStack => H.Integration () -> H.Property
 integration f = GHC.withFrozenCallStack $ H.withTests 1 $ H.propertyOnce f
 
+-- | The 'FilePath' in '(FilePath -> H.Integration ())' is the work space directory.
+-- This is created (and returned) via 'H.workspace'.
 integrationRetryWorkspace :: HasCallStack => Int -> FilePath -> (FilePath -> H.Integration ()) -> H.Property
 integrationRetryWorkspace n workspaceName f = GHC.withFrozenCallStack $
   integration $ H.retry n $ \i ->