Fix building

IntersectMBO · Apr 25, 2022 · 32bb206 · 32bb206
1 parent 07edc09
commit 32bb206
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/eras/shelley/test-suite/test/Test/Cardano/Ledger/Shelley/Serialisation/Tripping/CBOR.hs b/eras/shelley/test-suite/test/Test/Cardano/Ledger/Shelley/Serialisation/Tripping/CBOR.hs
@@ -137,9 +137,9 @@ roundtrip2' enc dec a = case deserialiseFromBytes dec bs of
 -------------------------------------------------------------------------------}
 
 prop_roundtrip_Addr :: Ledger.Addr Mock.C_Crypto -> Property
-prop_roundtrip_Addr =
-  roundtrip toCBOR fromCBOR
-    .&&. roundtrip toCBOR fromCborAddr acnt
+prop_roundtrip_Addr addr =
+  roundtrip toCBOR fromCBOR addr
+    .&&. roundtrip toCBOR fromCborAddr addr
 
 prop_roundtrip_RewardAcnt :: Ledger.RewardAcnt Mock.C_Crypto -> Property
 prop_roundtrip_RewardAcnt acnt =