diff options
Diffstat (limited to 'users/Profpatsch')
4 files changed, 5 insertions, 0 deletions
diff --git a/users/Profpatsch/my-prelude/my-prelude.cabal b/users/Profpatsch/my-prelude/my-prelude.cabal index c811c00e0a..658c427289 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 45c94b2009..55cedb336c 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 diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs index 5498cb235f..307c426b10 100644 --- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs +++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs @@ -13,6 +13,7 @@ import Data.Aeson qualified as Json import Data.Aeson.BetterErrors qualified as Json import Data.Aeson.KeyMap qualified as KeyMap import Data.Error.Tree +import Data.HashMap.Strict qualified as HashMap import Data.List qualified as List import Data.List.NonEmpty qualified as NonEmpty import Data.Map.Strict qualified as Map diff --git a/users/Profpatsch/whatcd-resolver/whatcd-resolver.cabal b/users/Profpatsch/whatcd-resolver/whatcd-resolver.cabal index caa068acd1..72e5c38cab 100644 --- a/users/Profpatsch/whatcd-resolver/whatcd-resolver.cabal +++ b/users/Profpatsch/whatcd-resolver/whatcd-resolver.cabal @@ -76,6 +76,7 @@ library blaze-html, bytestring, containers, + unordered-containers, directory, dlist, filepath, |