From 6bdbf1f39743011792375c2364dbe790cbbd96e1 Mon Sep 17 00:00:00 2001 From: Allen Nelson Date: Thu, 20 Jul 2017 13:24:56 -0500 Subject: [PATCH] fix duplicate instance --- tests/Unit.hs | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/tests/Unit.hs b/tests/Unit.hs index 2ee5ef4..97482b3 100644 --- a/tests/Unit.hs +++ b/tests/Unit.hs @@ -19,16 +19,6 @@ import qualified Data.Text as T import Data.SemVer --- | This instance seems to be missing :( -instance (Arbitrary a, Arbitrary b, Arbitrary c, - Arbitrary d, Arbitrary e, Arbitrary f) - => Arbitrary (a, b, c, d, e, f) where - arbitrary = (,,,,,) <$> arbitrary - <*> arbitrary - <*> arbitrary - <*> arbitrary - <*> arbitrary - <*> arbitrary -- | Arbitrary semver instance Arbitrary SemVer where arbitrary = semver' <$> arb <*> arb <*> arb <*> arbitrary where