ConnectionId: changed Ord instance

Order first by `remoteAddress`, then by `localAddress`.
IntersectMBO · Apr 23, 2024 · 23f151a · 23f151a
1 parent b920924
commit 23f151a
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/ouroboros-network-framework/src/Ouroboros/Network/ConnectionId.hs b/ouroboros-network-framework/src/Ouroboros/Network/ConnectionId.hs
@@ -25,10 +25,17 @@ data ConnectionId addr = ConnectionId {
     localAddress  :: !addr,
     remoteAddress :: !addr
   }
-  deriving (Eq, Ord, Show, Generic)
+  deriving (Eq, Show, Generic)
   deriving NoThunks via InspectHeap (ConnectionId addr)
   deriving Functor
 
+-- | Order first by `remoteAddress` then by `localAddress`.
+--
+instance Ord addr => Ord (ConnectionId addr) where
+    conn `compare` conn' =
+         remoteAddress conn `compare` remoteAddress conn'
+      <> localAddress conn `compare` localAddress conn'
+
 instance Hashable a => Hashable (ConnectionId a)
 
 instance forall addr. ShowProxy addr => ShowProxy (ConnectionId addr) where