Add withLoggerEnv (#45)

Blammo.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.18
 -- see: https://github.com/sol/hpack
 
 name:           Blammo
-version:        1.2.0.0
+version:        1.2.1.0
 synopsis:       Batteries-included Structured Logging library
 description:    Please see README.md
 category:       Utils

CHANGELOG.md

@@ -1,4 +1,8 @@
-## [_Unreleased_](https://github.com/freckle/blammo/compare/v1.2.0.0...main)
+## [_Unreleased_](https://github.com/freckle/blammo/compare/v1.2.1.0...main)
+
+## [v1.2.1.0](https://github.com/freckle/blammo/compare/1.2.0.0...v1.2.1.0)
+
+- Add `Blammo.Logging.Simple.withLoggerEnv`
 
 ## [v1.2.0.0](https://github.com/freckle/blammo/compare/v1.1.3.0...v1.2.0.0)
 

package.yaml

@@ -1,5 +1,5 @@
 name: Blammo
-version: 1.2.0.0
+version: 1.2.1.0
 maintainer: Freckle Education
 category: Utils
 github: freckle/blammo

src/Blammo/Logging.hs

@@ -68,7 +68,7 @@ import Data.Aeson (Series)
 import Data.Aeson.Types (Pair)
 import UnliftIO.Exception (finally)
 
--- | Initialize logging, pass a 'Logger' to the callback, and clean up at the end.
+-- | Initialize logging, pass a 'Logger' to the callback, and clean up at the end
 --
 -- Applications should avoid calling this more than once in their lifecycle.
 runLoggerLoggingT

src/Blammo/Logging/Logger.hs

@@ -54,7 +54,7 @@ import System.Log.FastLogger.Compat
 import UnliftIO (MonadUnliftIO)
 import UnliftIO.Exception (finally, throwString)
 
--- | Initialize logging, pass a 'Logger' to the callback, and clean up at the end.
+-- | Initialize logging, pass a 'Logger' to the callback, and clean up at the end
 --
 -- Applications should avoid calling this more than once in their lifecycle.
 withLogger :: MonadUnliftIO m => LogSettings -> (Logger -> m a) -> m a

src/Blammo/Logging/Simple.hs

@@ -1,6 +1,7 @@
 -- | Simplified out-of-the-box logging
 module Blammo.Logging.Simple
   ( newLoggerEnv
+  , withLoggerEnv
   , runSimpleLoggingT
   , module Blammo.Logging
   ) where
@@ -16,6 +17,13 @@ import Control.Monad.IO.Unlift (MonadUnliftIO)
 newLoggerEnv :: MonadIO m => m Logger
 newLoggerEnv = liftIO $ newLogger =<< Env.parse
 
+-- | Initialize logging (configured via environment variables),
+--   pass a 'Logger' to the callback, and clean up at the end
+--
+-- Applications should avoid calling this more than once in their lifecycle.
+withLoggerEnv :: MonadUnliftIO m => (Logger -> m a) -> m a
+withLoggerEnv f = liftIO Env.parse >>= \logger -> withLogger logger f
+
 -- | Construct a 'Logger' configured via environment variables and use it
 runSimpleLoggingT :: MonadUnliftIO m => LoggingT m a -> m a
 runSimpleLoggingT f = do