Rename mCleanPoolProduction to mCleanPoolDatabase.

This function actually does clean the whole database, so the previous name was a bit misleading.
cardano-foundation · Sep 14, 2020 · e7a89e9 · e7a89e9
1 parent 751be20
commit e7a89e9
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/MVar.hs b/lib/core/src/Cardano/Pool/DB/MVar.hs
@@ -25,7 +25,7 @@ import Cardano.Pool.DB.Model
     , PoolDatabase
     , PoolErr (..)
     , emptyPoolDatabase
-    , mCleanPoolProduction
+    , mCleanDatabase
     , mListRegisteredPools
     , mListRetiredPools
     , mPutFetchAttempt
@@ -152,7 +152,7 @@ newDBLayer timeInterpreter = do
                 pure retirementCerts
 
         cleanDB =
-            void $ alterPoolDB (const Nothing) db mCleanPoolProduction
+            void $ alterPoolDB (const Nothing) db mCleanDatabase
 
         readPoolMetadata = readPoolDB db mReadPoolMetadata
 

diff --git a/lib/core/src/Cardano/Pool/DB/Model.hs b/lib/core/src/Cardano/Pool/DB/Model.hs
@@ -32,7 +32,7 @@ module Cardano.Pool.DB.Model
     , ModelPoolOp
     , PoolErr (..)
     -- * Model pool database functions
-    , mCleanPoolProduction
+    , mCleanDatabase
     , mPutPoolProduction
     , mReadPoolProduction
     , mReadTotalProduction
@@ -165,8 +165,8 @@ newtype PoolErr = PointAlreadyExists BlockHeader
                             Model Pool Database Functions
 -------------------------------------------------------------------------------}
 
-mCleanPoolProduction :: ModelPoolOp ()
-mCleanPoolProduction _ = (Right (), emptyPoolDatabase)
+mCleanDatabase :: ModelPoolOp ()
+mCleanDatabase _ = (Right (), emptyPoolDatabase)
 
 mPutPoolProduction :: BlockHeader -> PoolId -> ModelPoolOp ()
 mPutPoolProduction point poolId db@PoolDatabase{pools} =