From b0b4b3d5d09adb1d42ad0cc66eadf5af7794de43 Mon Sep 17 00:00:00 2001 From: Karl Knutsson Date: Tue, 23 Nov 2021 13:23:17 +0100 Subject: [PATCH] ipv6 network tracing adaptions --- cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs index 5283b8c4917..9440f754590 100644 --- a/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs +++ b/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs @@ -1924,6 +1924,10 @@ instance ToObject NtN.RemoteAddress where mkObject [ "path" .= show path ] +instance ToJSON IP.IP where + toJSON ip = Aeson.object ["ip" .= show ip] + + instance ToObject NtN.RemoteConnectionId where toObject verb (NtN.ConnectionId l r) = mkObject [ "local" .= toObject verb l