diff options
Diffstat (limited to 'users/Profpatsch/my-prelude/src/Postgres')
-rw-r--r-- | users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs b/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs index 45c94b2009ca..55cedb336c32 100644 --- a/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs +++ b/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs @@ -13,6 +13,7 @@ import Control.Monad.Reader (MonadReader (ask), ReaderT (..)) import Control.Monad.Trans.Resource import Data.Aeson (FromJSON) import Data.Error.Tree +import Data.HashMap.Strict qualified as HashMap import Data.Int (Int64) import Data.Kind (Type) import Data.List qualified as List @@ -539,6 +540,7 @@ traceQueryIfEnabled tools span logDatabaseQueries qry params = do let doLog errs = Otel.addAttributes span + $ HashMap.fromList $ ( ("postgres.query", Otel.toAttribute @Text errs.query) : ( errs.explain & foldMap |