Use MsgRemovingPool in removePools DB operation.

cardano-foundation · Aug 20, 2020 · 643486f · 643486f
1 parent 0dd946f
commit 643486f
Showing 1 changed file with 1 addition and 5 deletions.
diff --git 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 ]