mirror of
https://github.com/typeable/bloodhound.git
synced 2024-09-11 08:25:32 +03:00
More missing plugin fields
This commit is contained in:
parent
ca25c0dc16
commit
cc68a5a69f
@ -3955,9 +3955,9 @@ data NodeInfo = NodeInfo {
|
||||
} deriving (Eq, Show, Generic, Typeable)
|
||||
|
||||
data NodePluginInfo = NodePluginInfo {
|
||||
nodePluginSite :: Bool
|
||||
nodePluginSite :: Maybe Bool
|
||||
-- ^ Is this a site plugin?
|
||||
, nodePluginJVM :: Bool
|
||||
, nodePluginJVM :: Maybe Bool
|
||||
-- ^ Is this plugin running on the JVM
|
||||
, nodePluginDescription :: Text
|
||||
, nodePluginVersion :: MaybeNA VersionNumber
|
||||
@ -4803,11 +4803,11 @@ parseNodeInfo nid o =
|
||||
instance FromJSON NodePluginInfo where
|
||||
parseJSON = withObject "NodePluginInfo" parse
|
||||
where
|
||||
parse o = NodePluginInfo <$> o .: "site"
|
||||
<*> o .: "jvm"
|
||||
<*> o .: "description"
|
||||
<*> o .: "version"
|
||||
<*> o .: "name"
|
||||
parse o = NodePluginInfo <$> o .:? "site"
|
||||
<*> o .:? "jvm"
|
||||
<*> o .: "description"
|
||||
<*> o .: "version"
|
||||
<*> o .: "name"
|
||||
|
||||
instance FromJSON NodeHTTPInfo where
|
||||
parseJSON = withObject "NodeHTTPInfo" parse
|
||||
|
Loading…
Reference in New Issue
Block a user