Use contramap to simplify nested tracing.

cardano-foundation · Aug 20, 2020 · cb87439 · cb87439
1 parent bf90817
commit cb87439
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -75,7 +75,7 @@ import Control.Monad.IO.Class
 import Control.Monad.Trans.Except
     ( ExceptT (..) )
 import Control.Tracer
-    ( Tracer (..), traceWith )
+    ( Tracer, contramap, traceWith )
 import Data.Either
     ( rights )
 import Data.Generics.Internal.VL.Lens
@@ -183,7 +183,7 @@ newDBLayer trace fp timeInterpreter = do
     let io = startSqliteBackend
             (migrateManually trace)
             migrateAll
-            (Tracer $ traceWith trace . MsgGeneric)
+            (contramap MsgGeneric trace)
             fp
     ctx@SqliteContext{runQuery} <- handlingPersistError trace fp io
     return (ctx, DBLayer