diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index b99f2469..45f92813 100644 --- a/tests/Main.hs +++ b/tests/Main.hs | |||
@@ -161,6 +161,9 @@ positive = fromIntegral <$> (arbitrary :: Gen Word32) | |||
161 | instance Arbitrary ByteString where | 161 | instance Arbitrary ByteString where |
162 | arbitrary = B.pack <$> arbitrary | 162 | arbitrary = B.pack <$> arbitrary |
163 | 163 | ||
164 | instance Arbitrary Lazy.ByteString where | ||
165 | arbitrary = Lazy.pack <$> arbitrary | ||
166 | |||
164 | instance Arbitrary BlockIx where | 167 | instance Arbitrary BlockIx where |
165 | arbitrary = BlockIx <$> positive <*> positive <*> positive | 168 | arbitrary = BlockIx <$> positive <*> positive <*> positive |
166 | 169 | ||