@@ -3922,8 +3922,8 @@ data NodeThreadPoolsInfo = NodeThreadPoolsInfo {
3922 nodeThreadPoolsRefresh :: NodeThreadPoolInfo
3922 nodeThreadPoolsRefresh :: NodeThreadPoolInfo
3923 , nodeThreadPoolsManagement :: NodeThreadPoolInfo
3923 , nodeThreadPoolsManagement :: NodeThreadPoolInfo
3924 , nodeThreadPoolsPercolate :: NodeThreadPoolInfo
3924 , nodeThreadPoolsPercolate :: NodeThreadPoolInfo
3925− , nodeThreadPoolsListener :: NodeThreadPoolInfo
3925+ , nodeThreadPoolsListener :: Maybe NodeThreadPoolInfo
3926− , nodeThreadPoolsFetchShardStarted :: NodeThreadPoolInfo
3926+ , nodeThreadPoolsFetchShardStarted :: Maybe NodeThreadPoolInfo
3927 , nodeThreadPoolsSearch :: NodeThreadPoolInfo
3927 , nodeThreadPoolsSearch :: NodeThreadPoolInfo
3928 , nodeThreadPoolsFlush :: NodeThreadPoolInfo
3928 , nodeThreadPoolsFlush :: NodeThreadPoolInfo
3929 , nodeThreadPoolsWarmer :: NodeThreadPoolInfo
3929 , nodeThreadPoolsWarmer :: NodeThreadPoolInfo
@@ -3933,7 +3933,7 @@ data NodeThreadPoolsInfo = NodeThreadPoolsInfo {
3933 , nodeThreadPoolsMerge :: NodeThreadPoolInfo
3933 , nodeThreadPoolsMerge :: NodeThreadPoolInfo
3934 , nodeThreadPoolsSnapshot :: NodeThreadPoolInfo
3934 , nodeThreadPoolsSnapshot :: NodeThreadPoolInfo
3935 , nodeThreadPoolsGet :: NodeThreadPoolInfo
3935 , nodeThreadPoolsGet :: NodeThreadPoolInfo
3936− , nodeThreadPoolsFetchShardStore :: NodeThreadPoolInfo
3936+ , nodeThreadPoolsFetchShardStore :: Maybe NodeThreadPoolInfo
3937 , nodeThreadPoolsIndex :: NodeThreadPoolInfo
3937 , nodeThreadPoolsIndex :: NodeThreadPoolInfo
3938 , nodeThreadPoolsGeneric :: NodeThreadPoolInfo
3938 , nodeThreadPoolsGeneric :: NodeThreadPoolInfo
3939 } deriving (Eq, Show, Generic, Typeable)
3939 } deriving (Eq, Show, Generic, Typeable)
@@ -4467,8 +4467,8 @@ instance FromJSON NodeThreadPoolsInfo where
4467 parse o = NodeThreadPoolsInfo <$> o .: "refresh"
4467 parse o = NodeThreadPoolsInfo <$> o .: "refresh"
4468 <*> o .: "management"
4468 <*> o .: "management"
4469 <*> o .: "percolate"
4469 <*> o .: "percolate"
4470− <*> o .: "listener"
4470+ <*> o .:? "listener"
4471− <*> o .: "fetch_shard_started"
4471+ <*> o .:? "fetch_shard_started"
4472 <*> o .: "search"
4472 <*> o .: "search"
4473 <*> o .: "flush"
4473 <*> o .: "flush"
4474 <*> o .: "warmer"
4474 <*> o .: "warmer"
@@ -4478,7 +4478,7 @@ instance FromJSON NodeThreadPoolsInfo where
4478 <*> o .: "merge"
4478 <*> o .: "merge"
4479 <*> o .: "snapshot"
4479 <*> o .: "snapshot"
4480 <*> o .: "get"
4480 <*> o .: "get"
4481− <*> o .: "fetch_shard_store"
4481+ <*> o .:? "fetch_shard_store"
4482 <*> o .: "index"
4482 <*> o .: "index"
4483 <*> o .: "generic"
4483 <*> o .: "generic"
@@ -4532,7 +4532,7 @@ instance FromJSON ThreadPoolType where
4532instance FromJSON NodeTransportInfo where
4532instance FromJSON NodeTransportInfo where
4533 parseJSON = withObject "NodeTransportInfo" parse
4533 parseJSON = withObject "NodeTransportInfo" parse
4535− parse o = NodeTransportInfo <$> (parseProfiles =<< o .: "profiles")
4535+ parse o = NodeTransportInfo <$> (maybe (return mempty) parseProfiles =<< o .:? "profiles")
4536 <*> parseJSON (Object o)
4536 <*> parseJSON (Object o)
4537 parseProfiles (Object o) | HM.null o = return []
4537 parseProfiles (Object o) | HM.null o = return []
4538 parseProfiles v@(Array _) = parseJSON v
4538 parseProfiles v@(Array _) = parseJSON v