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

Group the law invocations by functor.

Browse Source
This commit is contained in:
Rob Rix 2016-07-26 04:07:46 -04:00
parent 734254194c
commit 88bb767ff7
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/Data/Mergeable/Spec.hs
View File

@ -9,7 +9,7 @@ import Test.QuickCheck
spec :: Spec
spec = do
sequenceAltLaws (arbitrary :: Gen [Char])
describe "[]" $ sequenceAltLaws (arbitrary :: Gen [Char])
sequenceAltLaws :: (Mergeable f, Eq (f a), Show (f a)) => Gen (f a) -> Spec
sequenceAltLaws gen = do