Add Ord instance for ThreadToken (fix #157). (#159)

IntersectMBO · Dec 1, 2021 · 9c0cf02 · 9c0cf02
1 parent 05344c4
commit 9c0cf02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/plutus-contract/src/Plutus/Contract/StateMachine/ThreadToken.hs b/plutus-contract/src/Plutus/Contract/StateMachine/ThreadToken.hs
@@ -36,7 +36,7 @@ data ThreadToken = ThreadToken
     { ttOutRef         :: TxOutRef
     , ttCurrencySymbol :: CurrencySymbol
     }
-    deriving stock (Haskell.Eq, Haskell.Show, Generic)
+    deriving stock (Haskell.Eq, Haskell.Show, Haskell.Ord, Generic)
     deriving anyclass (ToJSON, FromJSON, OpenApi.ToSchema)