Skip to content

Commit c8f1072

Browse files
committed
Apply PR suggestions
1 parent 11a85b4 commit c8f1072

File tree

5 files changed

+8
-8
lines changed

5 files changed

+8
-8
lines changed

log-base/CHANGELOG.md

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
1-
# log-base-0.13.0.0 (2025-06-23)
2-
* Add utility function to log unhandled exceptions
1+
# log-base-0.12.0.1 (2025-??-??)
2+
* Add utility function to log unhandled exceptions.
33

44
# log-base-0.12.0.1 (2023-03-14)
55
* Add support for GHC 9.6.

log-base/log-base.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
cabal-version: 3.0
22
name: log-base
3-
version: 0.13.0.0
3+
version: 0.12.1.0
44
synopsis: Structured logging solution (base package)
55

66
description: A library that provides a way to record structured log

log-base/src/Log/Monad.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6,9 +6,9 @@ module Log.Monad (
66
, InnerLogT
77
, LogT(..)
88
, runLogT
9+
, logExceptions
910
, mapLogT
1011
, logMessageIO
11-
, logExceptions
1212
, getLoggerIO
1313
) where
1414

@@ -68,7 +68,7 @@ runLogT component logger maxLogLevel m = runReaderT (unLogT m) LoggerEnv {
6868
} -- We can't do synchronisation here, since 'runLogT' can be invoked
6969
-- quite often from the application (e.g. on every request).
7070

71-
-- | Unsure uncaught exceptions get logged
71+
-- | Ensure uncaught exceptions get logged.
7272
-- Convenient to compose right after `runLogT` so any exception
7373
-- will show up.
7474
logExceptions :: (MonadBaseControl IO m, MonadLog m) => m a -> m a
@@ -77,7 +77,7 @@ logExceptions f =
7777
logAttention "Uncaught exception" $ object ["error" .= show e]
7878
liftBase $ E.throwIO e
7979

80-
-- Generalized version of catch taken from `lifted-base`
80+
-- Generalized version of catch taken from `lifted-base`.
8181
liftedCatch :: (MonadBaseControl IO m, Exception e)
8282
=> m a -- ^ The computation to run
8383
-> (e -> m a) -- ^ Handler to invoke if an exception is raised

log-elasticsearch/log-elasticsearch.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ library
4040
deepseq,
4141
http-client,
4242
http-types,
43-
log-base >= 0.10 && <0.14,
43+
log-base >= 0.10 && <0.13,
4444
network-uri,
4545
semigroups,
4646
text,

log-postgres/log-postgres.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ library
3535
, hpqtypes >= 1.9.1.2
3636
, http-client >= 0.5
3737
, lifted-base >= 0.2
38-
, log-base >= 0.10 && < 0.14
38+
, log-base >= 0.10 && < 0.13
3939
, mtl >= 2.2
4040
, semigroups >= 0.16
4141
, split >= 0.2

0 commit comments

Comments
 (0)