about summary refs log tree commit diff
path: root/users
diff options
context:
space:
mode:
authorProfpatsch <mail@profpatsch.de>2024-05-11T21·08+0200
committerclbot <clbot@tvl.fyi>2024-05-13T14·52+0000
commita6b4134468ad6a286a0caf9671ceab368a363192 (patch)
treecb3b840db173c5a6506e7073725346df84e0f3a2 /users
parenta2d56cedaf4ef7c5a52e4029581eb692814441fa (diff)
refactor(users/Profpatsch/MonadPostgres): rephrase maybe match r/8132
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
Diffstat (limited to 'users')
-rw-r--r--users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs b/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs
index 7e4e75d8e9a8..8d82eb553bd0 100644
--- a/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs
+++ b/users/Profpatsch/my-prelude/src/Postgres/MonadPostgres.hs
@@ -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