Corrected type variable names

IntersectMBO · Dec 2, 2022 · 67ae47c · 67ae47c
1 parent 6cc2d44
commit 67ae47c
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs
@@ -419,8 +419,8 @@ instance HasPrivacyAnnotation (DebugPeerSelection addr)
 instance HasSeverityAnnotation (DebugPeerSelection addr) where
   getSeverityAnnotation _ = Debug
 
-instance HasPrivacyAnnotation (PeerSelectionActionsTrace SockAddr lAddr)
-instance HasSeverityAnnotation (PeerSelectionActionsTrace SockAddr lAddr) where
+instance HasPrivacyAnnotation (PeerSelectionActionsTrace SockAddr versionNumber)
+instance HasSeverityAnnotation (PeerSelectionActionsTrace SockAddr versionNumber) where
   getSeverityAnnotation ev =
    case ev of
      PeerStatusChanged {}       -> Info
@@ -677,9 +677,9 @@ instance HasTextFormatter (DebugPeerSelection SockAddr) where
   -- format.
   formatText _ obj = pack (show obj)
 
-instance Show lAddr => Transformable Text IO (PeerSelectionActionsTrace SockAddr lAddr) where
+instance Show versionNumber => Transformable Text IO (PeerSelectionActionsTrace SockAddr versionNumber) where
   trTransformer = trStructuredText
-instance Show lAddr => HasTextFormatter (PeerSelectionActionsTrace SockAddr lAddr) where
+instance Show versionNumber => HasTextFormatter (PeerSelectionActionsTrace SockAddr versionNumber) where
   formatText a _ = pack (show a)
 
 instance Transformable Text IO PeerSelectionCounters where
@@ -1657,7 +1657,7 @@ instance ToObject (DebugPeerSelection SockAddr) where
 
 -- TODO: Write PeerStatusChangeType ToJSON at ouroboros-network
 -- For that an export is needed at ouroboros-network
-instance Show lAddr => ToObject (PeerSelectionActionsTrace SockAddr lAddr) where
+instance Show versionNumber => ToObject (PeerSelectionActionsTrace SockAddr versionNumber) where
   toObject _verb (PeerStatusChanged ps) =
     mconcat [ "kind" .= String "PeerStatusChanged"
              , "peerStatusChangeType" .= show ps