git.iko.soy/typeable/bloodhound
on master help sign in
lets do this
f35ea3dChris Allen
bloodhound.cabal+3−3
@@ -32,14 +32,14 @@ library
32 build-depends: base >= 4.3 && <5,
32 build-depends: base >= 4.3 && <5,
33 bytestring >= 0.10.0 && <0.11,
33 bytestring >= 0.10.0 && <0.11,
34 containers >= 0.5.0.0 && <0.6,
34 containers >= 0.5.0.0 && <0.6,
35− aeson >= 0.10 && <0.11,
35+ aeson >= 0.11 && <0.12,
36 http-client >= 0.3 && <0.5,
36 http-client >= 0.3 && <0.5,
37 network-uri >= 2.6 && <2.7,
37 network-uri >= 2.6 && <2.7,
38 semigroups >= 0.15 && <0.19,
38 semigroups >= 0.15 && <0.19,
39− time >= 1.4 && <1.6,
39+ time >= 1.4 && <1.7,
40 text >= 0.11 && <1.3,
40 text >= 0.11 && <1.3,
41 mtl >= 1.0 && <2.3,
41 mtl >= 1.0 && <2.3,
42− transformers >= 0.2 && <0.5,
42+ transformers >= 0.2 && <0.6,
43 http-types >= 0.8 && <0.10,
43 http-types >= 0.8 && <0.10,
44 vector >= 0.10.9 && <0.12,
44 vector >= 0.10.9 && <0.12,
45 scientific >= 0.3.0.0 && <0.4.0.0,
45 scientific >= 0.3.0.0 && <0.4.0.0,
src/Database/Bloodhound/Types.hs+2−1
@@ -13,7 +13,7 @@
13-------------------------------------------------------------------------------
13-------------------------------------------------------------------------------
14-- |
14-- |
15-- Module : Database.Bloodhound.Types
15-- Module : Database.Bloodhound.Types
16−-- Copyright : (C) 2014 Chris Allen
16+-- Copyright : (C) 2014, 2015, 2016 Chris Allen
17-- License : BSD-style (see the file LICENSE)
17-- License : BSD-style (see the file LICENSE)
18-- Maintainer : Chris Allen <cma@bitemyapp.com
18-- Maintainer : Chris Allen <cma@bitemyapp.com
19-- Stability : provisional
19-- Stability : provisional
@@ -2082,6 +2082,7 @@ instance ToJSON Query where
2082 toJSON (TermsQuery fieldName terms) =
2082 toJSON (TermsQuery fieldName terms) =
2083 object [ "terms" .= object conjoined ]
2083 object [ "terms" .= object conjoined ]
2084 where conjoined = [fieldName .= terms]
2084 where conjoined = [fieldName .= terms]
2085+
2085 toJSON (IdsQuery idsQueryMappingName docIds) =
2086 toJSON (IdsQuery idsQueryMappingName docIds) =
2086 object [ "ids" .= object conjoined ]
2087 object [ "ids" .= object conjoined ]
2087 where conjoined = [ "type" .= idsQueryMappingName
2088 where conjoined = [ "type" .= idsQueryMappingName