typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-09-11 08:25:32 +03:00
Code Issues Projects Releases Wiki Activity

More missing plugin fields

Browse Source
This commit is contained in:
Josh Berman 2016-12-01 15:36:02 +02:00
parent ca25c0dc16
commit cc68a5a69f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Database/Bloodhound/Types.hs
View File

@ -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