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