[#2013] randomize DRep list

IntersectMBO · Sep 19, 2024 · 059b17e · 059b17e
1 parent 26400b3
commit 059b17e
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 1 deletion.
diff --git a/govtool/backend/src/VVA/API.hs b/govtool/backend/src/VVA/API.hs
@@ -29,6 +29,7 @@ import           Numeric.Natural          (Natural)
 
 import           Servant.API
 import           Servant.Server
+import           System.Random            (randomRIO)
 
 import           Text.Read                (readMaybe)
 
@@ -151,8 +152,11 @@ drepList mSearchQuery statuses mSortMode mPage mPageSize = do
         _  -> filter $ \Types.DRepRegistration {..} ->
           mapDRepStatus dRepRegistrationStatus `elem` statuses
 
+  randomizedOrderList <- mapM (\_ -> randomRIO (0, 1 :: Double)) dreps
+
   let sortDReps = case mSortMode of
         Nothing -> id
+        Just Random -> (\list -> fmap snd $ sortOn fst $ Prelude.zip randomizedOrderList list)
         Just VotingPower -> sortOn $ \Types.DRepRegistration {..} ->
           Down dRepRegistrationVotingPower
         Just RegistrationDate -> sortOn $ \Types.DRepRegistration {..} ->

diff --git a/govtool/backend/src/VVA/API/Types.hs b/govtool/backend/src/VVA/API/Types.hs
@@ -202,7 +202,7 @@ instance ToParamSchema GovernanceActionType where
       & enum_ ?~ map toJSON (enumFromTo minBound maxBound :: [GovernanceActionType])
 
 
-data DRepSortMode = VotingPower | RegistrationDate | Status deriving (Bounded, Enum, Eq, Generic, Read, Show)
+data DRepSortMode = Random | VotingPower | RegistrationDate | Status deriving (Bounded, Enum, Eq, Generic, Read, Show)
 
 instance FromJSON DRepSortMode where
   parseJSON (Aeson.String dRepSortMode) = pure $ fromJust $ readMaybe (Text.unpack dRepSortMode)

diff --git a/govtool/backend/vva-be.cabal b/govtool/backend/vva-be.cabal
@@ -103,6 +103,7 @@ library
                , http-client-tls
                , vector
                , async
+               , random
 
   exposed-modules: VVA.Config
                  , VVA.CommandLine