@@ -109,6 +109,7 @@ data SBPMsg =
109
109
| SBPMsgSettingsReadByIndexResp MsgSettingsReadByIndexResp Msg
110
110
| SBPMsgSettingsReadReq MsgSettingsReadReq Msg
111
111
| SBPMsgSettingsReadResp MsgSettingsReadResp Msg
112
+ | SBPMsgSettingsRegister MsgSettingsRegister Msg
112
113
| SBPMsgSettingsSave MsgSettingsSave Msg
113
114
| SBPMsgSettingsWrite MsgSettingsWrite Msg
114
115
| SBPMsgStartup MsgStartup Msg
@@ -194,6 +195,7 @@ instance Binary SBPMsg where
194
195
| _msgSBPType == msgSettingsReadByIndexResp = SBPMsgSettingsReadByIndexResp (decode (fromStrict _msgSBPPayload)) m
195
196
| _msgSBPType == msgSettingsReadReq = SBPMsgSettingsReadReq (decode (fromStrict _msgSBPPayload)) m
196
197
| _msgSBPType == msgSettingsReadResp = SBPMsgSettingsReadResp (decode (fromStrict _msgSBPPayload)) m
198
+ | _msgSBPType == msgSettingsRegister = SBPMsgSettingsRegister (decode (fromStrict _msgSBPPayload)) m
197
199
| _msgSBPType == msgSettingsSave = SBPMsgSettingsSave (decode (fromStrict _msgSBPPayload)) m
198
200
| _msgSBPType == msgSettingsWrite = SBPMsgSettingsWrite (decode (fromStrict _msgSBPPayload)) m
199
201
| _msgSBPType == msgStartup = SBPMsgStartup (decode (fromStrict _msgSBPPayload)) m
@@ -271,6 +273,7 @@ instance Binary SBPMsg where
271
273
encode' (SBPMsgSettingsReadByIndexResp _ m) = put m
272
274
encode' (SBPMsgSettingsReadReq _ m) = put m
273
275
encode' (SBPMsgSettingsReadResp _ m) = put m
276
+ encode' (SBPMsgSettingsRegister _ m) = put m
274
277
encode' (SBPMsgSettingsSave _ m) = put m
275
278
encode' (SBPMsgSettingsWrite _ m) = put m
276
279
encode' (SBPMsgStartup _ m) = put m
@@ -351,6 +354,7 @@ instance FromJSON SBPMsg where
351
354
| msgType == msgSettingsReadByIndexResp = SBPMsgSettingsReadByIndexResp <$> parseJSON obj <*> parseJSON obj
352
355
| msgType == msgSettingsReadReq = SBPMsgSettingsReadReq <$> parseJSON obj <*> parseJSON obj
353
356
| msgType == msgSettingsReadResp = SBPMsgSettingsReadResp <$> parseJSON obj <*> parseJSON obj
357
+ | msgType == msgSettingsRegister = SBPMsgSettingsRegister <$> parseJSON obj <*> parseJSON obj
354
358
| msgType == msgSettingsSave = SBPMsgSettingsSave <$> parseJSON obj <*> parseJSON obj
355
359
| msgType == msgSettingsWrite = SBPMsgSettingsWrite <$> parseJSON obj <*> parseJSON obj
356
360
| msgType == msgStartup = SBPMsgStartup <$> parseJSON obj <*> parseJSON obj
@@ -433,6 +437,7 @@ instance ToJSON SBPMsg where
433
437
toJSON (SBPMsgSettingsReadByIndexResp n m) = toJSON n `mergeValues` toJSON m
434
438
toJSON (SBPMsgSettingsReadReq n m) = toJSON n `mergeValues` toJSON m
435
439
toJSON (SBPMsgSettingsReadResp n m) = toJSON n `mergeValues` toJSON m
440
+ toJSON (SBPMsgSettingsRegister n m) = toJSON n `mergeValues` toJSON m
436
441
toJSON (SBPMsgSettingsSave n m) = toJSON n `mergeValues` toJSON m
437
442
toJSON (SBPMsgSettingsWrite n m) = toJSON n `mergeValues` toJSON m
438
443
toJSON (SBPMsgStartup n m) = toJSON n `mergeValues` toJSON m
@@ -509,6 +514,7 @@ instance HasMsg SBPMsg where
509
514
msg f (SBPMsgSettingsReadByIndexResp n m) = SBPMsgSettingsReadByIndexResp n <$> f m
510
515
msg f (SBPMsgSettingsReadReq n m) = SBPMsgSettingsReadReq n <$> f m
511
516
msg f (SBPMsgSettingsReadResp n m) = SBPMsgSettingsReadResp n <$> f m
517
+ msg f (SBPMsgSettingsRegister n m) = SBPMsgSettingsRegister n <$> f m
512
518
msg f (SBPMsgSettingsSave n m) = SBPMsgSettingsSave n <$> f m
513
519
msg f (SBPMsgSettingsWrite n m) = SBPMsgSettingsWrite n <$> f m
514
520
msg f (SBPMsgStartup n m) = SBPMsgStartup n <$> f m
0 commit comments