test

IntersectMBO · Oct 15, 2024 · 023f419 · 023f419
1 parent 9291a9b
commit 023f419
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/govtool/backend/src/VVA/API.hs b/govtool/backend/src/VVA/API.hs
@@ -141,7 +141,7 @@ drepList mSearchQuery statuses mSortMode mPage mPageSize = do
   dreps <- cacheRequest dRepListCache () DRep.listDReps
 
   let filterDRepsByQuery = case mSearchQuery of
-        Nothing -> filter $ \Types.DRepRegistration {..} -> dRepRegistrationType == Types.DRep
+        Nothing -> id
         Just query -> filter $ \Types.DRepRegistration {..} ->
           case dRepRegistrationType of
             Types.SoleVoter -> query == dRepRegistrationView || query == dRepRegistrationDRepHash
@@ -176,7 +176,7 @@ drepList mSearchQuery statuses mSortMode mPage mPageSize = do
   let page = (fromIntegral $ fromMaybe 0 mPage) :: Int
       pageSize = (fromIntegral $ fromMaybe 10 mPageSize) :: Int
 
-      total = length allValidDReps :: Int
+      total = length dreps :: Int
 
   let elements = take pageSize $ drop (page * pageSize) allValidDReps