8a8492d · typeable/bloodhound

git.iko.soy/typeable/bloodhound

on master help sign in

Travis-driven-development

8a8492dMichael Xavier11 years ago

src/Database/Bloodhound/Types.hs+1−1

@@ -1342,7 +1342,7 @@ data ZeroTermsQuery = ZeroTermsNone

1342data RangeExecution = RangeExecutionIndex

1343 | RangeExecutionFielddata deriving (Eq, Show, Generic, Typeable)

1344

1345−newtype Regexp = Regexp Text deriving (Eq, Show, Generic, FromJSON)

1345+newtype Regexp = Regexp Text deriving (Eq, Show, Generic, Typeable, FromJSON)

1346

1347data RegexpFlags = AllRegexpFlags

1348 | NoRegexpFlags

tests/tests.hs+2−2

@@ -485,7 +485,7 @@ instance Arbitrary a => Arbitrary (NonEmpty a) where

485arbitraryScore :: Gen Score

486arbitraryScore = fmap getPositive <$> arbitrary

487

488−instance Arbitrary a => Arbitrary (Hit a) where

488+instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where

489 arbitrary = Hit <$> arbitrary

490 <*> arbitrary

491 <*> arbitrary

@@ -495,7 +495,7 @@ instance Arbitrary a => Arbitrary (Hit a) where

495 shrink = genericShrink

496

497

498−instance Arbitrary a => Arbitrary (SearchHits a) where

498+instance (Arbitrary a, Typeable a) => Arbitrary (SearchHits a) where

499 arbitrary = reduceSize $ do

500 tot <- getPositive <$> arbitrary

501 score <- arbitraryScore