Refine sorting order

First `nonMyopicMemberRewards`, then `desirabilityScore`, then randomness from seed
cardano-foundation · Jan 13, 2022 · b4eeb0f · b4eeb0f
1 parent 23d2347
commit b4eeb0f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs
@@ -157,6 +157,8 @@ import Data.Word
     ( Word64 )
 import Fmt
     ( fixedF, pretty )
+import Numeric.Natural
+    ( Natural )
 import Ouroboros.Consensus.Cardano.Block
     ( CardanoBlock, HardForkBlock (..) )
 import System.Random
@@ -295,7 +297,12 @@ newStakePoolLayer gcStatus nl db@DBLayer {..} mkCacheWorker restartSyncThread =
         sortByReward
             :: RandomGen g => g -> [Api.ApiStakePool] -> [Api.ApiStakePool]
         sortByReward seed = sortRandomOn seed (Down . rewards)
-            where rewards = view (#metrics . #nonMyopicMemberRewards)
+          where
+            rewards :: Api.ApiStakePool -> (Quantity "lovelace" Natural, Double)
+            rewards pool =
+                ( view (#metrics . #nonMyopicMemberRewards) pool
+                , view (#metrics . #desirabilityScore) pool
+                )
 
     _forceMetadataGC :: IO ()
     _forceMetadataGC = do