[CORE-7914] Log an unhandled exception or a user abort before the computation ends

log-base/CHANGELOG.md

@@ -1,3 +1,6 @@
+# log-base-0.13.0.0 (2025-06-23)
+* Add utility function to log unhandled exceptions
+
 # log-base-0.12.0.1 (2023-03-14)
 * Add support for GHC 9.6.
 

log-base/log-base.cabal

@@ -1,6 +1,6 @@
 cabal-version:       3.0
 name:                log-base
-version:             0.12.0.1
+version:             0.13.0.0
 synopsis:            Structured logging solution (base package)
 
 description:         A library that provides a way to record structured log

log-base/src/Log/Monad.hs

@@ -8,6 +8,7 @@ module Log.Monad (
   , runLogT
   , mapLogT
   , logMessageIO
+  , logExceptions
   , getLoggerIO
   ) where
 
@@ -67,6 +68,25 @@ runLogT component logger maxLogLevel m = runReaderT (unLogT m) LoggerEnv {
 } -- We can't do synchronisation here, since 'runLogT' can be invoked
   -- quite often from the application (e.g. on every request).
 
+-- | Unsure uncaught exceptions get logged
+-- Convenient to compose right after `runLogT` so any exception
+-- will show up.
+logExceptions :: (MonadBaseControl IO m, MonadLog m) => m a -> m a
+logExceptions f =
+  liftedCatch f $ \(SomeException e) -> do
+      logAttention "Uncaught exception" $ object ["error" .= show e]
+      liftBase $ E.throwIO e
+
+-- Generalized version of catch taken from `lifted-base`
+liftedCatch :: (MonadBaseControl IO m, Exception e)
+      => m a       -- ^ The computation to run
+      -> (e -> m a) -- ^ Handler to invoke if an exception is raised
+      -> m a
+liftedCatch a handler = control $ \runInIO ->
+  E.catch
+    (runInIO a)
+    (runInIO . handler)
+
 -- | Transform the computation inside a 'LogT'.
 mapLogT :: (m a -> n b) -> LogT m a -> LogT n b
 mapLogT f = LogT . mapReaderT f . unLogT

log-elasticsearch/log-elasticsearch.cabal

@@ -40,7 +40,7 @@ library
                        deepseq,
                        http-client,
                        http-types,
-                       log-base >= 0.10 && <0.13,
+                       log-base >= 0.10 && <0.14,
                        network-uri,
                        semigroups,
                        text,

log-postgres/log-postgres.cabal

@@ -35,7 +35,7 @@ library
                     , hpqtypes              >= 1.9.1.2
                     , http-client           >= 0.5
                     , lifted-base           >= 0.2
-                    , log-base              >= 0.10  && < 0.13
+                    , log-base              >= 0.10  && < 0.14
                     , mtl                   >= 2.2
                     , semigroups            >= 0.16
                     , split                 >= 0.2