Merge pull request #4685 from input-output-hk/ch1bo/cardano-api-chain…

…-point-ord-instance [cardano-api] Add an Ord ChainPoint instance
IntersectMBO · Dec 8, 2022 · 4d416ff · 4d416ff
2 parents fe5508a + b8460b1
commit 4d416ff
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/cardano-api/src/Cardano/Api/Block.hs b/cardano-api/src/Cardano/Api/Block.hs
@@ -341,6 +341,11 @@ data ChainPoint = ChainPointAtGenesis
                 | ChainPoint !SlotNo !(Hash BlockHeader)
   deriving (Eq, Show)
 
+instance Ord ChainPoint where
+  compare ChainPointAtGenesis ChainPointAtGenesis = EQ
+  compare ChainPointAtGenesis _ = LT
+  compare _ ChainPointAtGenesis = GT
+  compare (ChainPoint sn _) (ChainPoint sn' _) = compare sn sn'
 
 toConsensusPointInMode :: ConsensusMode mode
                        -> ChainPoint