Merge #4587

4587: Add Ord instance for AddressInEra r=Jimbo4350 a=Jimbo4350

Co-authored-by: `@UlfNorell`

Co-authored-by: Jordan Millar <[email protected]>

Author: iohk-bors[bot]

cardano-api/src/Cardano/Api/Address.hs

@@ -110,7 +110,7 @@ import           Cardano.Api.Script
 import           Cardano.Api.SerialiseBech32
 import           Cardano.Api.SerialiseRaw
 import           Cardano.Api.Utils
-import           Control.DeepSeq (NFData(..), deepseq)
+import           Control.DeepSeq (NFData (..), deepseq)
 
 
 
@@ -412,6 +412,19 @@ instance Eq (AddressInEra era) where
   (==) (AddressInEra ShelleyAddressInEra{} _)
        (AddressInEra ByronAddressInAnyEra _) = False
 
+instance Ord (AddressInEra era) where
+  compare (AddressInEra ByronAddressInAnyEra addr1)
+          (AddressInEra ByronAddressInAnyEra addr2) = compare addr1 addr2
+
+  compare (AddressInEra ShelleyAddressInEra{} addr1)
+          (AddressInEra ShelleyAddressInEra{} addr2) = compare addr1 addr2
+
+  compare (AddressInEra ByronAddressInAnyEra _)
+          (AddressInEra ShelleyAddressInEra{} _) = LT
+
+  compare (AddressInEra ShelleyAddressInEra{} _)
+          (AddressInEra ByronAddressInAnyEra _) = GT
+
 deriving instance Show (AddressInEra era)
 
 data AddressTypeInEra addrtype era where