git.iko.soy/typeable/bloodhound
on master help sign in
fix status request
758d06bDanila Borisiuk
Database/Bloodhound/Types.hs+2−2
compare with master
unifiedsplit
@@ -173,7 +173,7 @@ data Version = Version { number :: Text
173 <http://www.elasticsearch.org/guide/en/elasticsearch/reference/current/indices-status.html#indices-status>
173 <http://www.elasticsearch.org/guide/en/elasticsearch/reference/current/indices-status.html#indices-status>
174-}
174-}
175
175
176−data Status = Status { ok :: Bool
176+data Status = Status { ok :: Maybe Bool
177 , status :: Int
177 , status :: Int
178 , name :: Text
178 , name :: Text
179 , version :: Version
179 , version :: Version
@@ -1509,7 +1509,7 @@ instance FromJSON DocId
1509
1509
1510instance FromJSON Status where
1510instance FromJSON Status where
1511 parseJSON (Object v) = Status <$>
1511 parseJSON (Object v) = Status <$>
1512− v .: "ok" <*>
1512+ v .:? "ok" <*>
1513 v .: "status" <*>
1513 v .: "status" <*>
1514 v .: "name" <*>
1514 v .: "name" <*>
1515 v .: "version" <*>
1515 v .: "version" <*>