Skip to content

Commit 8f7be2d

Browse files
committed
ouroboros-network-protocols:testlib removed unused constraints
1 parent 67885bb commit 8f7be2d

File tree

1 file changed

+6
-8
lines changed
  • ouroboros-network-protocols/testlib/Test/Ouroboros/Network/Testing

1 file changed

+6
-8
lines changed

ouroboros-network-protocols/testlib/Test/Ouroboros/Network/Testing/Utils.hs

Lines changed: 6 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -28,11 +28,9 @@ splits3 bs =
2828

2929
-- | Check that the codec produces a valid CBOR term
3030
-- that is decodeable by CBOR.decodeTerm.
31+
--
3132
prop_codec_cborM
32-
:: forall ps m.
33-
( Monad m
34-
, Eq (AnyMessage ps)
35-
)
33+
:: forall ps m. Monad m
3634
=> Codec ps CBOR.DeserialiseFailure m LBS.ByteString
3735
-> AnyMessage ps
3836
-> m Bool
@@ -67,11 +65,11 @@ prop_codec_valid_cbor_encoding Codec {encode} (AnyMessage msg) =
6765
| otherwise
6866
-> deserialise (a : as) bs'
6967

68+
-- | Check that the codec produces a valid CBOR term
69+
-- that is decodeable by CBOR.decodeTerm.
70+
--
7071
prop_codec_st_cborM
71-
:: forall ps f m.
72-
( Monad m
73-
, Eq (AnyMessage ps)
74-
)
72+
:: forall ps f m. Monad m
7573
=> Stateful.Codec ps CBOR.DeserialiseFailure f m LBS.ByteString
7674
-> Stateful.AnyMessage ps f
7775
-> m Bool

0 commit comments

Comments
 (0)