@@ -3955,9 +3955,9 @@ data NodeInfo = NodeInfo {
3955 } deriving (Eq, Show, Generic, Typeable)
3955 } deriving (Eq, Show, Generic, Typeable)
3957data NodePluginInfo = NodePluginInfo {
3957data NodePluginInfo = NodePluginInfo {
3958− nodePluginSite :: Bool
3958+ nodePluginSite :: Maybe Bool
3959 -- ^ Is this a site plugin?
3959 -- ^ Is this a site plugin?
3960− , nodePluginJVM :: Bool
3960+ , nodePluginJVM :: Maybe Bool
3961 -- ^ Is this plugin running on the JVM
3961 -- ^ Is this plugin running on the JVM
3962 , nodePluginDescription :: Text
3962 , nodePluginDescription :: Text
3963 , nodePluginVersion :: MaybeNA VersionNumber
3963 , nodePluginVersion :: MaybeNA VersionNumber
@@ -4803,11 +4803,11 @@ parseNodeInfo nid o =
4803instance FromJSON NodePluginInfo where
4803instance FromJSON NodePluginInfo where
4804 parseJSON = withObject "NodePluginInfo" parse
4804 parseJSON = withObject "NodePluginInfo" parse
4806− parse o = NodePluginInfo <$> o .: "site"
4806+ parse o = NodePluginInfo <$> o .:? "site"
4807− <*> o .: "jvm"
4807+ <*> o .:? "jvm"
4808− <*> o .: "description"
4808+ <*> o .: "description"
4809− <*> o .: "version"
4809+ <*> o .: "version"
4810− <*> o .: "name"
4810+ <*> o .: "name"
4812instance FromJSON NodeHTTPInfo where
4812instance FromJSON NodeHTTPInfo where
4813 parseJSON = withObject "NodeHTTPInfo" parse
4813 parseJSON = withObject "NodeHTTPInfo" parse