mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(users/Profpatsch/MonadPostgres): rephrase maybe match

Browse source 
wtf was I thinking

Change-Id: Ia621032d90d7a9363dfe2bfbed122c67c90468f7
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11651
Reviewed-by: Profpatsch <mail@profpatsch.de>
Autosubmit: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI
This commit is contained in:
Profpatsch 2024-05-11 23:08:26 +02:00 committed by clbot
parent a2d56cedaf
commit a6b4134468
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs
View file

@ -718,10 +718,9 @@ traceQueryIfEnabled tools span logDatabaseQueries qry params = do
$ HashMap.fromList
$ ( ("_.postgres.query", Otel.toAttribute @Text errs.query)
: ( errs.explain
& foldMap
( \ex ->
[("_.postgres.explain", Otel.toAttribute @Text ex)]
)
& \case
Nothing -> []
Just ex -> [("_.postgres.explain", Otel.toAttribute @Text ex)]
)
)
let doExplain = do