git.iko.soy/typeable/bloodhound
on master help sign in
bump bounds and hope for the best
commit2e332aa474a180692562a6ef590be7d77faf3385 authorVille Tirronen <ville@typeable.io> dateThu 17 Mar 2022, 12:25 (5 years ago) parent0f75695
2 files changed+3−3
bloodhound.cabal+2−2 src/Database/V1/Bloodhound/Internal/Query.hs+1−1
bloodhound.cabal+2−2
@@ -74,10 +74,10 @@ library
7474 mtl >= 1.0 && <2.3,
7575 network-uri >= 2.6 && <2.7,
7676 scientific >= 0.3.0.0 && <0.4.0.0,
77− semigroups >= 0.15 && <0.19,
77+ semigroups >= 0.15 && <0.20,
7878 semver,
7979 text >= 0.11 && <1.3,
80− time >= 1.4 && <1.9,
80+ time >= 1.4 && <1.10,
8181 transformers >= 0.2 && <0.6,
8282 unordered-containers,
8383 vector >= 0.10.9 && <0.13
src/Database/V1/Bloodhound/Internal/Query.hs+1−1
@@ -1468,7 +1468,7 @@ instance FromJSON ZeroTermsQuery where
14681468 parse "all" = pure ZeroTermsAll
14691469 parse q = fail ("Unexpected ZeroTermsQuery: " <> show q)
14701470
1471−fieldTagged :: Monad m => (FieldName -> Object -> m a) -> Object -> m a
1471+fieldTagged :: (MonadFail m, Monad m) => (FieldName -> Object -> m a) -> Object -> m a
14721472fieldTagged f o = case HM.toList o of
14731473 [(k, Object o')] -> f (FieldName k) o'
14741474 _ -> fail "Expected object with 1 field-named key"