Fixes

IntersectMBO · May 5, 2024 · 0394452 · 0394452
1 parent f5e6c54
commit 0394452
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/cardano-node/src/Cardano/Node/Tracing/Tracers/ChainDB.hs b/cardano-node/src/Cardano/Node/Tracing/Tracers/ChainDB.hs
@@ -422,7 +422,7 @@ instance ( LogFormatting (Header blk)
       "Added request to queue to reprocess blocks postponed by LoE."
   forHuman ChainDB.PoppedReprocessLoEBlocksFromQueue =
       "Poppped request from queue to reprocess blocks postponed by LoE."
-  forHuman (ChainDB.ChainSelectionLoEDebug {}) =
+  forHuman ChainDB.ChainSelectionLoEDebug {} =
       "ChainDB LoE debug event"
   forMachine dtal (ChainDB.IgnoreBlockOlderThanK pt) =
       mconcat [ "kind" .= String "IgnoreBlockOlderThanK"

diff --git a/cardano-node/src/Cardano/Node/Tracing/Tracers/NodeVersion.hs b/cardano-node/src/Cardano/Node/Tracing/Tracers/NodeVersion.hs
@@ -11,19 +11,23 @@ module Cardano.Node.Tracing.Tracers.NodeVersion
 )
  where
 
-import           Cardano.Logging
 import           Data.Aeson (toJSON, (.=))
 import           Data.Text (Text, pack)
 
 import           Data.Version (Version (..), showVersion)
+import           System.Info (arch, compilerName, compilerVersion, os)
+
 
 import           Cardano.Git.Rev (gitRev)
+import           Cardano.Logging
+
 
 import           Paths_cardano_node (version)
-import           System.Info (arch, compilerName, compilerVersion, os)
 
 
 
+-- | Node version information
+
 data NodeVersionTrace = NodeVersionTrace
   { applicationName    :: Text
   , applicationVersion :: Version
@@ -34,6 +38,8 @@ data NodeVersionTrace = NodeVersionTrace
   , gitRevision        :: Text
   } deriving (Eq, Show)
 
+-- | Get the node version information
+
 getNodeVersion :: NodeVersionTrace
 getNodeVersion =
   let applicationName = "cardano-node"
@@ -46,6 +52,7 @@ getNodeVersion =
       gitRevision = $(gitRev)
   in NodeVersionTrace {..}
 
+
 instance MetaTrace NodeVersionTrace where
   namespaceFor NodeVersionTrace {}  =
     Namespace [] ["NodeVersion"]