From b9b94ffb21ae6b40eb16490a6f7b25e596f394b8 Mon Sep 17 00:00:00 2001
From: Yupanqui <jnf@arcor.de>
Date: Mon, 15 May 2023 15:14:23 +0200
Subject: [PATCH] Tracing fixes

---
 cardano-node/cardano-node.cabal                       | 1 +
 trace-dispatcher/src/Cardano/Logging/DocuGenerator.hs | 1 +
 2 files changed, 2 insertions(+)

diff --git a/cardano-node/cardano-node.cabal b/cardano-node/cardano-node.cabal
index 432c5d89b35..273e6612a6c 100644
--- a/cardano-node/cardano-node.cabal
+++ b/cardano-node/cardano-node.cabal
@@ -38,6 +38,7 @@ common project-config
                         -Wpartial-fields
                         -Wredundant-constraints
                         -Wunused-packages
+                        -fprof-auto
 
 common maybe-Win32
   if os(windows)
diff --git a/trace-dispatcher/src/Cardano/Logging/DocuGenerator.hs b/trace-dispatcher/src/Cardano/Logging/DocuGenerator.hs
index 8607b1bc2f2..102f5c25de8 100644
--- a/trace-dispatcher/src/Cardano/Logging/DocuGenerator.hs
+++ b/trace-dispatcher/src/Cardano/Logging/DocuGenerator.hs
@@ -53,6 +53,7 @@ addDocumentedNamespace  tl (Documented list) =
     list
 
 -- | Convenience function
+{-# INLINE showT #-}
 showT :: Show a => a -> Text
 showT = pack . show