diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-05-03 08:45:51 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-05-03 08:45:51 +0400 |
commit | f53531b65171e3b64d733aa0ab8c7fed71325464 (patch) | |
tree | 64d4646bdf565cc6e16a53a82f96df4b06a906df /tests/encoding.hs | |
parent | d7df7e201bd7e0893910d77c1ea172ea0c59cd3f (diff) |
+ Add bitfield module.
Diffstat (limited to 'tests/encoding.hs')
-rw-r--r-- | tests/encoding.hs | 4 |
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 #-} |
2 | module Main (main) where | 4 | module Main (main) where |
3 | 5 | ||
@@ -29,6 +31,8 @@ instance Arbitrary BlockIx where | |||
29 | instance Arbitrary Block where | 31 | instance Arbitrary Block where |
30 | arbitrary = Block <$> positive <*> positive <*> arbitrary | 32 | arbitrary = Block <$> positive <*> positive <*> arbitrary |
31 | 33 | ||
34 | deriving instance Arbitrary Bitfield | ||
35 | |||
32 | instance Arbitrary Message where | 36 | instance Arbitrary Message where |
33 | arbitrary = oneof | 37 | arbitrary = oneof |
34 | [ pure KeepAlive | 38 | [ pure KeepAlive |