WIP

IntersectMBO · Mar 2, 2021 · 7ea826a · 7ea826a
1 parent c36aaaf
commit 7ea826a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/Rewards.hs b/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/Rewards.hs
@@ -414,8 +414,8 @@ data Reward crypto = Reward
 --  function 'aggregateRewards' so that 'Set.findMax' returns
 --  the expected value.
 instance Ord (Reward crypto) where
-  compare (Reward MemberReward _ _) (Reward LeaderReward _ _) = LT
-  compare (Reward LeaderReward _ _) (Reward MemberReward _ _) = GT
+  compare (Reward MemberReward _ _) (Reward LeaderReward _ _) = GT
+  compare (Reward LeaderReward _ _) (Reward MemberReward _ _) = LT
   compare (Reward _ pool1 _) (Reward _ pool2 _) = compare pool1 pool2
 
 instance NoThunks (Reward crypto)