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

Use record notation to unwrap ArbitrarySyntax.

Browse Source
This commit is contained in:
Rob Rix 2015-12-11 09:12:49 -05:00
parent 0c23f11d01
commit 6799d5eba1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Spec.hs
View File

@ -17,7 +17,7 @@ import Test.QuickCheck
newtype ArbitraryTerm a annotation = ArbitraryTerm (Term a annotation) newtype ArbitraryTerm a annotation = ArbitraryTerm (Term a annotation)
deriving (Show, Eq) deriving (Show, Eq)
newtype ArbitrarySyntax a f = ArbitrarySyntax (Syntax a f) newtype ArbitrarySyntax a f = ArbitrarySyntax { unSyntax :: Syntax a f }
deriving (Show, Eq) deriving (Show, Eq)
instance (Arbitrary a, Arbitrary f) => Arbitrary (ArbitrarySyntax a f) where instance (Arbitrary a, Arbitrary f) => Arbitrary (ArbitrarySyntax a f) where