From f53531b65171e3b64d733aa0ab8c7fed71325464 Mon Sep 17 00:00:00 2001 From: Sam T Date: Fri, 3 May 2013 08:45:51 +0400 Subject: + Add bitfield module. --- tests/encoding.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'tests') 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 @@ +{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# OPTIONS -fno-warn-orphans #-} module Main (main) where @@ -29,6 +31,8 @@ instance Arbitrary BlockIx where instance Arbitrary Block where arbitrary = Block <$> positive <*> positive <*> arbitrary +deriving instance Arbitrary Bitfield + instance Arbitrary Message where arbitrary = oneof [ pure KeepAlive -- cgit v1.2.3