block-fetch-tests: export PeerGSVT

IntersectMBO · May 6, 2024 · bea4653 · bea4653
1 parent 117bf62
commit bea4653
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/ouroboros-network/sim-tests-lib/Test/Ouroboros/Network/BlockFetch.hs b/ouroboros-network/sim-tests-lib/Test/Ouroboros/Network/BlockFetch.hs
@@ -6,7 +6,10 @@
 
 {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
 
-module Test.Ouroboros.Network.BlockFetch (tests) where
+module Test.Ouroboros.Network.BlockFetch
+  ( PeerGSVT (..)
+  , tests
+  ) where
 
 import Test.ChainGenerators (TestChainFork (..))
 import Test.QuickCheck
@@ -798,6 +801,8 @@ prop_terminate (TestChainFork _commonChain forkChain _forkChain) (Positive (Smal
 
     fork'  = chainToAnchoredFragment forkChain
 
+-- TODO: moved to some shared place (cannot be moved to
+-- `ouroboros-network-testing` which doesn't depend on `ouroboros-network`)
 newtype PeerGSVT = PeerGSVT {
       unPeerGSVT :: PeerGSV
     } deriving Show