Fixed tests

IntersectMBO · Nov 12, 2024 · aead33b · aead33b
1 parent 8efbcad
commit aead33b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Ledger/hs-src/test/UtxowSpec.hs b/src/Ledger/hs-src/test/UtxowSpec.hs
@@ -64,7 +64,7 @@ initEnv :: UTxOEnv
 initEnv = MkUTxOEnv {ueSlot = 0, uePparams = initParams, ueTreasury = 0}
 
 baseAddr :: Integer -> Addr
-baseAddr n = Left BaseAddr{baseNet = 0, basePay = KeyHashObj n, baseStake = KeyHashObj n}
+baseAddr n = Left BaseAddr{baseNet = 0, basePay = KeyHashObj n, baseStake = Just (KeyHashObj n)}
 
 a0 :: Addr
 a0 = baseAddr 0