Add MsgParseFailure constructor to PoolDbLog.

lib/core/src/Cardano/Pool/DB/Log.hs

@@ -22,6 +22,8 @@ import Cardano.Wallet.Logging
  ( BracketLog )
 import Cardano.Wallet.Primitive.Types
  ( EpochNo, PoolId, PoolRetirementCertificate )
+import Data.Text
+ ( Text )
 import Data.Text.Class
  ( ToText (..), toText )
 import Fmt
@@ -31,6 +33,7 @@ import qualified Data.Text as T
 
 data PoolDbLog
  = MsgGeneric DBLog
+ | MsgParseFailure Text
  | MsgRemovingPool PoolId
  | MsgRemovingRetiredPools [PoolRetirementCertificate]
  | MsgRemovingRetiredPoolsForEpoch EpochNo BracketLog
@@ -41,13 +44,18 @@ instance HasPrivacyAnnotation PoolDbLog
 instance HasSeverityAnnotation PoolDbLog where
  getSeverityAnnotation = \case
  MsgGeneric e -> getSeverityAnnotation e
+ MsgParseFailure {} -> Error
  MsgRemovingPool {} -> Notice
  MsgRemovingRetiredPools {} -> Debug
  MsgRemovingRetiredPoolsForEpoch {} -> Debug
 
 instance ToText PoolDbLog where
  toText = \case
  MsgGeneric e -> toText e
+ MsgParseFailure e -> T.unlines
+ [ "Unexpected parse failure:"
+ , e
+ ]
  MsgRemovingPool p -> mconcat
  [ "Removing the following pool from the database: "
  , toText p