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 a Separated newtype.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 09:12:00 -05:00
parent 1268f07c8a
commit 1e360dca67
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

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