Adjust the sort order of Value entries

Order the ada case first.
IntersectMBO · Nov 23, 2020 · 844dde7 · 844dde7
1 parent f6db51c
commit 844dde7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cardano-api/src/Cardano/Api/Value.hs b/cardano-api/src/Cardano/Api/Value.hs
@@ -108,8 +108,8 @@ newtype AssetName = AssetName ByteString
   deriving stock (Show)
   deriving newtype (Eq, Ord, IsString)
 
-data AssetId = AssetId !PolicyId !AssetName
-             | AdaAssetId
+data AssetId = AdaAssetId
+             | AssetId !PolicyId !AssetName
   deriving (Eq, Ord, Show)