Change ImpTestState initialization to set the MonadState

IntersectMBO · Apr 25, 2024 · b6e97d2 · b6e97d2
1 parent 8f31f71
commit b6e97d2
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/libs/cardano-ledger-api/test/Test/Cardano/Ledger/Api/State/Imp/QuerySpec.hs b/libs/cardano-ledger-api/test/Test/Cardano/Ledger/Api/State/Imp/QuerySpec.hs
@@ -41,7 +41,6 @@ import Cardano.Ledger.Keys (
 import Cardano.Ledger.Shelley.LedgerState
 import Data.Default.Class (Default (..))
 import Data.Foldable (Foldable (..))
-import qualified Data.List.NonEmpty as NE
 import qualified Data.Map.Strict as Map
 import qualified Data.Set as Set
 import Lens.Micro ((&), (.~))
@@ -100,7 +99,7 @@ spec = do
           , (c3, EpochNo 7)
           , (c4, EpochNo 5)
           ]
-    initialMembers <- Set.fromList . NE.toList <$> getInitialCommitteMembers
+    initialMembers <- getCommitteeMembers
 
     ga1 <-
       electCommittee