From e7a89e99efa81349b8878b56939c14d97e35efd0 Mon Sep 17 00:00:00 2001 From: Jonathan Knowles Date: Thu, 10 Sep 2020 12:41:11 +0000 Subject: [PATCH] Rename `mCleanPoolProduction` to `mCleanPoolDatabase`. This function actually does clean the whole database, so the previous name was a bit misleading. --- lib/core/src/Cardano/Pool/DB/MVar.hs | 4 ++-- lib/core/src/Cardano/Pool/DB/Model.hs | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/core/src/Cardano/Pool/DB/MVar.hs b/lib/core/src/Cardano/Pool/DB/MVar.hs index 3bf9ff089ff..464337f56d4 100644 --- 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 index 8fcc4d4a330..4f89bc84748 100644 --- 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} =