From c7adf7adab4c7b5dbea5fd238f45c1b00e03f9d3 Mon Sep 17 00:00:00 2001
From: Ryan Scott <ryan.gl.scott@gmail.com>
Date: Wed, 17 Jan 2018 15:35:34 -0500
Subject: [PATCH] Depend on base-orphans
---
tests/Tests/Vector.hs | 9 +--------
vector.cabal | 4 ++--
2 files changed, 3 insertions(+), 10 deletions(-)
diff --git a/tests/Tests/Vector.hs b/tests/Tests/Vector.hs
index 89473b6..e4fac21 100644
--- a/tests/Tests/Vector.hs
+++ b/tests/Tests/Vector.hs
@@ -7,6 +7,7 @@ import Utilities as Util
import Data.Functor.Identity
import qualified Data.Traversable as T (Traversable(..))
import Data.Foldable (Foldable(foldMap))
+import Data.Orphans ()
import qualified Data.Vector.Generic as V
import qualified Data.Vector
@@ -70,14 +71,6 @@ type VectorContext a v = ( Eq (v a), Show (v a), Arbitrary (v a), CoArbitrary (
-- TODO: test non-IVector stuff?
-#if !MIN_VERSION_base(4,7,0)
-instance Foldable ((,) a) where
- foldMap f (_, b) = f b
-
-instance T.Traversable ((,) a) where
- traverse f (a, b) = fmap ((,) a) $ f b
-#endif
-
testSanity :: forall a v. (CommonContext a v) => v a -> [Test]
testSanity _ = [
testProperty "fromList.toList == id" prop_fromList_toList,
diff --git a/vector.cabal b/vector.cabal
index 03d2f99..806e77e 100644
--- a/vector.cabal
+++ b/vector.cabal
@@ -189,7 +189,7 @@ test-suite vector-tests-O0
Utilities
hs-source-dirs: tests
- Build-Depends: base >= 4.5 && < 5, template-haskell, vector,
+ Build-Depends: base >= 4.5 && < 5, template-haskell, base-orphan >= 0.6, vector,
primitive, random,
QuickCheck >= 2.9 && < 2.10 , HUnit, test-framework,
test-framework-hunit, test-framework-quickcheck2,
@@ -227,7 +227,7 @@ test-suite vector-tests-O2
Utilities
hs-source-dirs: tests
- Build-Depends: base >= 4.5 && < 5, template-haskell, vector,
+ Build-Depends: base >= 4.5 && < 5, template-haskell, base-orphan >= 0.6, vector,
primitive, random,
QuickCheck >= 2.9 && < 2.10 , HUnit, test-framework,
test-framework-hunit, test-framework-quickcheck2,
--
GitLab