[commit: packages/binary] master: Add arbitrary for Action in Arbitrary instance. (cf1d522)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/binary

On branch  : master
Link       : http://git.haskell.org/packages/binary.git/commitdiff/cf1d5225e631eed640b2fba6cf1508bc0a4457f3

>---------------------------------------------------------------

commit cf1d5225e631eed640b2fba6cf1508bc0a4457f3
Author: Lennart Kolmodin <kolmodin at gmail.com>
Date:   Fri Jan 22 22:09:25 2016 +0100

    Add arbitrary for Action in Arbitrary instance.


>---------------------------------------------------------------

cf1d5225e631eed640b2fba6cf1508bc0a4457f3
 tests/Action.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/Action.hs b/tests/Action.hs
index 2900389..bf20467 100644
--- a/tests/Action.hs
+++ b/tests/Action.hs
@@ -38,6 +38,7 @@ data Action
   deriving (Show, Eq)
 
 instance Arbitrary Action where
+  arbitrary = fmap Actions (gen_actions False)
   shrink action =
     case action of
       Actions [a] -> [a]