github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Add an Arbitrary instance over Separated.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 09:12:12 -05:00
parent 1e360dca67
commit df8496a839
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,3 +9,6 @@ instance Arbitrary a => Arbitrary (Adjoined a) where
newtype Separated a = Separated { unSeparated :: a }
deriving (Eq, Functor, Show)
instance Arbitrary a => Arbitrary (Separated a) where
arbitrary = Separated <$> arbitrary