1 files changed, 6 insertions, 5 deletions
diff --git a/tests/Encoding.hs b/tests/Encoding.hs
index a599cd39..78f0dfc1 100644
--- a/tests/Encoding.hs
+++ b/tests/Encoding.hs
@@ -48,12 +48,12 @@ instance Arbitrary Message where
    , pure Unchoke
    , pure Interested
    , pure NotInterested
-    , Have <$> positive
+    , Have     <$> positive
    , Bitfield <$> arbitrary
-    , Request <$> arbitrary
+    , Request  <$> arbitrary
-    , Piece <$> arbitrary
+    , Piece    <$> arbitrary
-    , Cancel <$> arbitrary
+    , Cancel   <$> arbitrary
-    , Port <$> arbitrary
+    , Port     <$> arbitrary
    ]
 instance Arbitrary PeerID where
@@ -67,6 +67,7 @@ instance Arbitrary InfoHash where
 instance Arbitrary Handshake where
  arbitrary = defaultHandshake <$> arbitrary <*> arbitrary
 data T a = T
 prop_encoding :: (Serialize a, Eq a) => T a -> [a] -> Bool

diff --git a/tests/Encoding.hs b/tests/Encoding.hs index a599cd39..78f0dfc1 100644 --- a/tests/Encoding.hs +++ b/tests/Encoding.hs
@@ -48,12 +48,12 @@ instance Arbitrary Message where
48	, pure Unchoke	48	, pure Unchoke
49	, pure Interested	49	, pure Interested
50	, pure NotInterested	50	, pure NotInterested
51	, Have <$> positive	51	, Have <$> positive
52	, Bitfield <$> arbitrary	52	, Bitfield <$> arbitrary
53	, Request <$> arbitrary	53	, Request <$> arbitrary
54	, Piece <$> arbitrary	54	, Piece <$> arbitrary
55	, Cancel <$> arbitrary	55	, Cancel <$> arbitrary
56	, Port <$> arbitrary	56	, Port <$> arbitrary
57	]	57	]
58		58
59	instance Arbitrary PeerID where	59	instance Arbitrary PeerID where
@@ -67,6 +67,7 @@ instance Arbitrary InfoHash where
67	instance Arbitrary Handshake where	67	instance Arbitrary Handshake where
68	arbitrary = defaultHandshake <$> arbitrary <*> arbitrary	68	arbitrary = defaultHandshake <$> arbitrary <*> arbitrary
69		69
		70
70	data T a = T	71	data T a = T
71		72
72	prop_encoding :: (Serialize a, Eq a) => T a -> [a] -> Bool	73	prop_encoding :: (Serialize a, Eq a) => T a -> [a] -> Bool