hw-polysemy 0.2.14.7 → 0.2.14.8

raw patch · 2 files changed

+39/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• core/HaskellWorks/Polysemy/Log.hs +38/−7
• hw-polysemy.cabal +1/−1

@@ -17,21 +17,25 @@      annotateCs,     logCs,++    setLogLevelFromEnv,   ) where  import           Data.Aeson-import qualified Data.Aeson                  as J-import qualified Data.ByteString.Lazy        as LBS-import qualified Data.Text.Encoding          as T+import qualified Data.Aeson                               as J+import qualified Data.ByteString.Lazy                     as LBS+import qualified Data.Text                                as T+import qualified Data.Text.Encoding                       as T import           Data.Time-import qualified GHC.Stack                   as GHC+import qualified GHC.Stack                                as GHC+import           HaskellWorks.Polysemy.System.Environment import           HaskellWorks.Prelude import           Polysemy-import           Polysemy.Internal.Tactics   (liftT)+import           Polysemy.Internal.Tactics                (liftT) import           Polysemy.Log-import qualified Polysemy.Log.Effect.DataLog as Log+import qualified Polysemy.Log.Effect.DataLog              as Log import           Polysemy.Time-import qualified Polysemy.Time               as Time+import qualified Polysemy.Time                            as Time  interpretDataLogNoop :: forall a r. ()   => InterpreterFor (DataLog a) r@@ -109,3 +113,30 @@       [ "severity" .= show severity       , "message"  .= message       ]++-- | Set the log level for the duration of the computation to the severity provided in the+-- environment variable of the given name or else the default severity for the duration of+-- the computation.+--+-- Values for the log level are case-insensitive and can be one of the following:+--+--   * trace+--   * debug+--   * info+--   * warn+--   * error+--   * crit+setLogLevelFromEnv :: ()+  => HasCallStack+  => Member (DataLog (LogEntry LogMessage)) r+  => Member (Embed IO) r+  => String+  -> Severity+  -> Sem r a+  -> Sem r a+setLogLevelFromEnv envVarName defaultSeverity f = do+  maybeSeverityString <- lookupEnv envVarName++  let maybeSeverity = maybeSeverityString >>= parseSeverity . T.pack++  setLogLevel (maybeSeverity <|> Just defaultSeverity) f

@@ -1,6 +1,6 @@ cabal-version:          3.4 name:                   hw-polysemy-version:                0.2.14.7+version:                0.2.14.8 synopsis:               Opinionated polysemy library description:            Opinionated polysemy library. license:                Apache-2.0