Use forAllBlind in ScriptRegistrySpec

If the result is not equal, it will print 'r' anyways.
input-output-hk · Feb 6, 2023 · 757f8b7 · 757f8b7
1 parent 2f3442c
commit 757f8b7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hydra-node/test/Hydra/Chain/Direct/ScriptRegistrySpec.hs b/hydra-node/test/Hydra/Chain/Direct/ScriptRegistrySpec.hs
@@ -8,10 +8,10 @@ import Hydra.Chain.Direct.ScriptRegistry (
   newScriptRegistry,
   registryUTxO,
  )
-import Test.QuickCheck (forAll, (===))
+import Test.QuickCheck (forAllBlind, (===))
 
 spec :: Spec
 spec =
   prop "newScriptRegistry (registryUTxO r) === Just r" $
-    forAll genScriptRegistry $ \r ->
+    forAllBlind genScriptRegistry $ \r ->
       newScriptRegistry (registryUTxO r) === Right r