@@ -2990,7 +2990,7 @@ instance FromJSON MatchQueryType where
2990instance FromJSON Status where
2990instance FromJSON Status where
2991 parseJSON (Object v) = Status <$>
2991 parseJSON (Object v) = Status <$>
2992 v .:? "ok" <*>
2992 v .:? "ok" <*>
2993− v .: "status" <*>
2993+ (v .:? "status" .!= 200) <*>
2994 v .: "name" <*>
2994 v .: "name" <*>
2995 v .: "version" <*>
2995 v .: "version" <*>
2996 v .: "tagline"
2996 v .: "tagline"