diff --git a/src/Simplex/Messaging/Protocol.hs b/src/Simplex/Messaging/Protocol.hs index e5d918cc6..40314ad2a 100644 --- a/src/Simplex/Messaging/Protocol.hs +++ b/src/Simplex/Messaging/Protocol.hs @@ -2258,7 +2258,11 @@ $(J.deriveJSON defaultJSON ''MsgFlags) $(J.deriveJSON (sumTypeJSON id) ''CommandError) -$(J.deriveJSON (sumTypeJSON $ dropPrefix "NE") ''NetworkError) +$(J.deriveToJSON (sumTypeJSON $ dropPrefix "NE") ''NetworkError) + +instance FromJSON NetworkError where + parseJSON = $(J.mkParseJSON (sumTypeJSON $ dropPrefix "NE") ''NetworkError) + omittedField = Just NEFailedError $(J.deriveJSON (sumTypeJSON id) ''BrokerErrorType)