Merge pull request #4875 from IntersectMBO/js/orphan-showproxy

Move ShowProxy SlotNo to ShowProxy
IntersectMBO · May 8, 2024 · 431bb59 · 431bb59
2 parents c531409 + fa09d7d
commit 431bb59
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 2 deletions.
diff --git a/ouroboros-network-api/CHANGELOG.md b/ouroboros-network-api/CHANGELOG.md
@@ -6,6 +6,8 @@
 
 ### Non-Breaking changes
 
+* Added `ShowProxy SlotNo` instance
+
 ## 0.7.2.0 -- 2024-05-07
 
 ### Breaking changes

diff --git a/ouroboros-network-api/src/Ouroboros/Network/Util/ShowProxy.hs b/ouroboros-network-api/src/Ouroboros/Network/Util/ShowProxy.hs
@@ -6,6 +6,7 @@ module Ouroboros.Network.Util.ShowProxy
   , Proxy (..)
   ) where
 
+import Cardano.Slotting.Slot (SlotNo)
 import Data.Typeable
 
 class ShowProxy p where
@@ -15,3 +16,4 @@ class ShowProxy p where
     showProxy p = showsTypeRep (typeRep p) ""
 
 instance ShowProxy Int where
+instance ShowProxy SlotNo where
diff --git a/ouroboros-network-protocols/CHANGELOG.md b/ouroboros-network-protocols/CHANGELOG.md
@@ -4,6 +4,8 @@
 
 ### Breaking changes
 
+* Un-orphan `ShowProxy SlotNo` instance.
+
 ### Non-Breaking changes
 
 ## 0.8.1.0 -- 2024-03-14

diff --git a/ouroboros-network-protocols/testlib/Ouroboros/Network/Protocol/LocalTxMonitor/Test.hs b/ouroboros-network-protocols/testlib/Ouroboros/Network/Protocol/LocalTxMonitor/Test.hs
@@ -197,8 +197,6 @@ instance ShowProxy TxId where
 -- Orphans Plumbing
 --
 
-instance ShowProxy SlotNo where
-
 instance (Arbitrary txid, Arbitrary tx, Arbitrary slot)
     => Arbitrary (AnyMessageAndAgency (LocalTxMonitor txid tx slot))
   where