trace-dispatcher: review changes

Emurgo · Nov 23, 2023 · 010dda7 · 010dda7
1 parent fb6a311
commit 010dda7
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 7 deletions.
diff --git a/trace-dispatcher/src/Cardano/Logging/Trace.hs b/trace-dispatcher/src/Cardano/Logging/Trace.hs
@@ -181,7 +181,6 @@ withSeverity (Trace tr) = Trace $
         (lc, Left e) -> (lc, Left e))
       tr
   where
-    {-# INLINE process #-}
     process lc cont@(Right v) =
       if isJust (lcSeverity lc)
         then (lc,cont)
@@ -236,7 +235,6 @@ withPrivacy (Trace tr) = Trace $
         (lc, Left e) -> (lc, Left e))
       tr
   where
-    {-# INLINE process #-}
     process lc cont@(Right v) =
       if isJust (lcPrivacy lc)
         then (lc,cont)
@@ -268,7 +266,6 @@ withDetails (Trace tr) = Trace $
         (lc, Left e) -> (lc, Left e))
       tr
   where
-    {-# INLINE process #-}
     process lc cont@(Right v) =
       if isJust (lcDetails lc)
         then (lc,cont)

diff --git a/trace-dispatcher/src/Cardano/Logging/Types.hs b/trace-dispatcher/src/Cardano/Logging/Types.hs
@@ -53,7 +53,6 @@ module Cardano.Logging.Types (
 
 
 import           Codec.Serialise (Serialise (..))
--- import           Data.Aeson ((.=))
 import qualified Data.Aeson as AE
 import qualified Data.HashMap.Strict as HM
 import           Data.IORef
@@ -68,12 +67,9 @@ import           Network.HostName (HostName)
 
 import qualified Control.Tracer as T
 
---
-
 import           Ouroboros.Network.Util.ShowProxy (ShowProxy (..))
 
 
-
 -- | The Trace carries the underlying tracer Tracer from the contra-tracer package.
 --   It adds a 'LoggingContext' and maybe a 'TraceControl' to every message.
 newtype Trace m a = Trace