git.iko.soy/typeable/bloodhound
on master help sign in
bump bounds and hope for the best
2e332aaVille Tirronen
bloodhound.cabal+2−2
compare with master
unifiedsplit
@@ -74,10 +74,10 @@ library
74 mtl >= 1.0 && <2.3,
74 mtl >= 1.0 && <2.3,
75 network-uri >= 2.6 && <2.7,
75 network-uri >= 2.6 && <2.7,
76 scientific >= 0.3.0.0 && <0.4.0.0,
76 scientific >= 0.3.0.0 && <0.4.0.0,
77− semigroups >= 0.15 && <0.19,
77+ semigroups >= 0.15 && <0.20,
78 semver,
78 semver,
79 text >= 0.11 && <1.3,
79 text >= 0.11 && <1.3,
80− time >= 1.4 && <1.9,
80+ time >= 1.4 && <1.10,
81 transformers >= 0.2 && <0.6,
81 transformers >= 0.2 && <0.6,
82 unordered-containers,
82 unordered-containers,
83 vector >= 0.10.9 && <0.13
83 vector >= 0.10.9 && <0.13
src/Database/V1/Bloodhound/Internal/Query.hs+1−1
@@ -1468,7 +1468,7 @@ instance FromJSON ZeroTermsQuery where
1468 parse "all" = pure ZeroTermsAll
1468 parse "all" = pure ZeroTermsAll
1469 parse q = fail ("Unexpected ZeroTermsQuery: " <> show q)
1469 parse q = fail ("Unexpected ZeroTermsQuery: " <> show q)
1470
1470
1471−fieldTagged :: Monad m => (FieldName -> Object -> m a) -> Object -> m a
1471+fieldTagged :: (MonadFail m, Monad m) => (FieldName -> Object -> m a) -> Object -> m a
1472fieldTagged f o = case HM.toList o of
1472fieldTagged f o = case HM.toList o of
1473 [(k, Object o')] -> f (FieldName k) o'
1473 [(k, Object o')] -> f (FieldName k) o'
1474 _ -> fail "Expected object with 1 field-named key"
1474 _ -> fail "Expected object with 1 field-named key"