From 643486f32e652fe0abf7c85a4f48bc78622ac204 Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <jonathan.knowles@iohk.io>
Date: Thu, 20 Aug 2020 04:07:13 +0000
Subject: [PATCH] Use `MsgRemovingPool` in `removePools` DB operation.

---
 lib/core/src/Cardano/Pool/DB/Sqlite.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
index 624c84aa410..d4a52f530d1 100644
--- a/lib/core/src/Cardano/Pool/DB/Sqlite.hs
+++ b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -389,11 +389,7 @@ newDBLayer trace fp timeInterpreter = do
             -- TODO: remove dangling metadata no longer attached to a pool
 
         , removePools = mapM_ $ \pool -> do
-            liftIO
-                $ traceWith trace
-                $ MsgGeneric
-                $ MsgRemovingDatabaseEntity
-                $ T.unwords [ "pool", toText pool ]
+            liftIO $ traceWith trace $ MsgRemovingPool pool
             deleteWhere [ PoolProductionPoolId ==. pool ]
             deleteWhere [ PoolOwnerPoolId ==. pool ]
             deleteWhere [ PoolRegistrationPoolId ==. pool ]