github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

🔥 Data.Vector.Arbitrary.

Browse Source
This commit is contained in:
Rob Rix 2016-08-10 09:44:02 -04:00
parent f05570dd3e
commit 959f15198c
2 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
semantic-diff.cabal
View File

@ -106,7 +106,6 @@ test-suite semantic-diff-test
, CorpusSpec
, Data.Mergeable.Spec
, Data.RandomWalkSimilarity.Spec
, Data.Vector.Arbitrary
, Diff.Spec
, DiffSummarySpec
, InterpreterSpec

10
test/Data/Vector/Arbitrary.hs
View File

@ -1,10 +0,0 @@
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Data.Vector.Arbitrary (module Vector) where
import Data.Vector as Vector
import Prologue
import Test.QuickCheck
instance Arbitrary a => Arbitrary (Vector.Vector a) where
arbitrary = Vector.fromList <$> listOf1 arbitrary
shrink a = Vector.fromList <$> shrink (Vector.toList a)