Add 'Ord' instance for 'WalletState'

cardano-foundation · May 14, 2019 · 4118e17 · 4118e17
1 parent 00dc8b5
commit 4118e17
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Wallet/Primitive/Types.hs b/lib/core/src/Cardano/Wallet/Primitive/Types.hs
@@ -228,6 +228,12 @@ data WalletState
 
 instance NFData WalletState
 
+instance Ord WalletState where
+    Ready <= Ready = True
+    Ready <= Restoring _ = False
+    Restoring _ <= Ready = True
+    Restoring a <= Restoring b = a <= b
+
 data WalletDelegation poolId
     = NotDelegating
     | Delegating !poolId

diff --git a/lib/core/src/Data/Quantity.hs b/lib/core/src/Data/Quantity.hs
@@ -118,7 +118,7 @@ instance ToText b => ToText (Quantity sym b) where
 -- | Opaque Haskell type to represent values between 0 and 100 (incl).
 newtype Percentage = Percentage
     { getPercentage :: Word }
-    deriving stock (Generic, Show, Eq)
+    deriving stock (Generic, Show, Eq, Ord)
     deriving newtype (ToJSON)
 
 instance NFData Percentage