Make mListRetiredPools into a ModelPoolOp.

cardano-foundation · Sep 14, 2020 · 0c89a54 · 0c89a54
1 parent 15b20d2
commit 0c89a54
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 7 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/MVar.hs b/lib/core/src/Cardano/Pool/DB/MVar.hs
@@ -122,8 +122,8 @@ newDBLayer timeInterpreter = do
         listRegisteredPools =
             readPoolDB db mListRegisteredPools
 
-        listRetiredPools epochNo =
-            modifyMVar db (pure . swap . mListRetiredPools epochNo)
+        listRetiredPools =
+            readPoolDB db . mListRetiredPools
 
         listPoolLifeCycleData =
             readPoolDB db . mListPoolLifeCycleData

diff --git a/lib/core/src/Cardano/Pool/DB/Model.hs b/lib/core/src/Cardano/Pool/DB/Model.hs
@@ -281,11 +281,8 @@ listRegisteredPools :: PoolDatabase -> [PoolId]
 listRegisteredPools PoolDatabase {registrations} =
     snd <$> Map.keys registrations
 
-mListRetiredPools
-    :: EpochNo
-    -> PoolDatabase
-    -> ([PoolRetirementCertificate], PoolDatabase)
-mListRetiredPools epochNo db = (listRetiredPools epochNo db, db)
+mListRetiredPools :: EpochNo -> ModelPoolOp [PoolRetirementCertificate]
+mListRetiredPools epochNo db = (pure $ listRetiredPools epochNo db, db)
 
 listRetiredPools :: EpochNo -> PoolDatabase -> [PoolRetirementCertificate]
 listRetiredPools epochNo db = retiredPools