summaryrefslogtreecommitdiff
path: root/tests/encoding.hs
diff options
context:
space:
mode:
authorSam T <pxqr.sta@gmail.com>2013-05-03 08:45:51 +0400
committerSam T <pxqr.sta@gmail.com>2013-05-03 08:45:51 +0400
commitf53531b65171e3b64d733aa0ab8c7fed71325464 (patch)
tree64d4646bdf565cc6e16a53a82f96df4b06a906df /tests/encoding.hs
parentd7df7e201bd7e0893910d77c1ea172ea0c59cd3f (diff)
+ Add bitfield module.
Diffstat (limited to 'tests/encoding.hs')
-rw-r--r--tests/encoding.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/encoding.hs b/tests/encoding.hs
index a8490551..405d2eb1 100644
--- a/tests/encoding.hs
+++ b/tests/encoding.hs
@@ -1,3 +1,5 @@
1{-# LANGUAGE StandaloneDeriving #-}
2{-# LANGUAGE GeneralizedNewtypeDeriving #-}
1{-# OPTIONS -fno-warn-orphans #-} 3{-# OPTIONS -fno-warn-orphans #-}
2module Main (main) where 4module Main (main) where
3 5
@@ -29,6 +31,8 @@ instance Arbitrary BlockIx where
29instance Arbitrary Block where 31instance Arbitrary Block where
30 arbitrary = Block <$> positive <*> positive <*> arbitrary 32 arbitrary = Block <$> positive <*> positive <*> arbitrary
31 33
34deriving instance Arbitrary Bitfield
35
32instance Arbitrary Message where 36instance Arbitrary Message where
33 arbitrary = oneof 37 arbitrary = oneof
34 [ pure KeepAlive 38 [ pure KeepAlive