Introduce MsgRemovingPool constructor of PoolDbLog.

cardano-foundation · Aug 20, 2020 · 0dd946f · 0dd946f
1 parent 5d016da
commit 0dd946f
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -32,6 +32,8 @@ module Cardano.Pool.DB.Sqlite
 
 import Prelude
 
+import Cardano.BM.Data.Severity
+    ( Severity (..) )
 import Cardano.BM.Data.Tracer
     ( HasPrivacyAnnotation (..), HasSeverityAnnotation (..) )
 import Cardano.DB.Sqlite
@@ -678,16 +680,23 @@ fromPoolMeta meta = (poolMetadataHash meta,) $
                                    Logging
 -------------------------------------------------------------------------------}
 
-newtype PoolDbLog
+data PoolDbLog
     = MsgGeneric DBLog
+    | MsgRemovingPool PoolId
     deriving (Eq, Show)
 
 instance HasPrivacyAnnotation PoolDbLog
 
 instance HasSeverityAnnotation PoolDbLog where
     getSeverityAnnotation = \case
         MsgGeneric e -> getSeverityAnnotation e
+        MsgRemovingPool {} -> Notice
 
 instance ToText PoolDbLog where
     toText = \case
         MsgGeneric e -> toText e
+        MsgRemovingPool p -> mconcat
+            [ "Removing the following pool from the database: "
+            , toText p
+            , "."
+            ]