Commit cf1d5225 authored by Lennart Kolmodin's avatar Lennart Kolmodin
Browse files

Add arbitrary for Action in Arbitrary instance.

parent 6aafbcfd
......@@ -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]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment