github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

Add an Arbitrary instance over Adjoined.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 09:06:29 -05:00
parent 4e1d4706ee
commit 1268f07c8a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/Data/Adjoined/Spec.hs
View File

@ -1 +1,8 @@
module Data.Adjoined.Spec where module Data.Adjoined.Spec where
import Data.Adjoined
import Test.QuickCheck
instance Arbitrary a => Arbitrary (Adjoined a) where
arbitrary = fromList <$> arbitrary