Support 2.0+ status page response
commit99987f70a9da06992a93464e5c84aa73d55838b6
authorAlistair Bush <alistair.bush@gmail.com>
dateTue 23 Aug 2016, 13:55 (10 years ago)
parent1467ffe
src/Database/Bloodhound/Types.hs+1−1
@@ -2990,7 +2990,7 @@ instance FromJSON MatchQueryType where
29902990instance FromJSON Status where
29912991 parseJSON (Object v) = Status <$>
29922992 v .:? "ok" <*>
2993− v .: "status" <*>
2993+ (v .:? "status" .!= 200) <*>
29942994 v .: "name" <*>
29952995 v .: "version" <*>
29962996 v .: "tagline"