diff options
| author | Vincent Ambo <tazjin@tvl.su> | 2023-10-08T21·22+0300 |
|---|---|---|
| committer | tazjin <tazjin@tvl.su> | 2023-10-09T09·09+0000 |
| commit | 47bc5bb4bc10b31294bce2ea37bcebaff3002f07 (patch) | |
| tree | cd4a30ff713480da629a2e4e83de3a014f06dfa5 /users/Profpatsch/my-prelude | |
| parent | 5f53841a343f0f2b5a66f9d58739b19a2e81dcb9 (diff) | |
chore(3p/sources): bump channels & overlays (2023-10-08) r/6747
Change-Id: I9eeaffad53aba278cd9082c5b4c3e7b1c5f6cc22 Reviewed-on: https://cl.tvl.fyi/c/depot/+/9585 Tested-by: BuildkiteCI Reviewed-by: tazjin <tazjin@tvl.su> Reviewed-by: Profpatsch <mail@profpatsch.de> Autosubmit: tazjin <tazjin@tvl.su>
Diffstat (limited to 'users/Profpatsch/my-prelude')
| -rw-r--r-- | users/Profpatsch/my-prelude/my-prelude.cabal | 1 | ||||
| -rw-r--r-- | users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/users/Profpatsch/my-prelude/my-prelude.cabal b/users/Profpatsch/my-prelude/my-prelude.cabal index c811c00e0adf..658c42728993 100644 --- a/users/Profpatsch/my-prelude/my-prelude.cabal +++ b/users/Profpatsch/my-prelude/my-prelude.cabal @@ -82,6 +82,7 @@ library , aeson-better-errors , bytestring , containers + , unordered-containers , resource-pool , resourcet , scientific 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 |