diff options
Diffstat (limited to 'hsm-log/Hsm')
| -rw-r--r-- | hsm-log/Hsm/Log.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/hsm-log/Hsm/Log.hs b/hsm-log/Hsm/Log.hs index d8dbab0..570b19a 100644 --- a/hsm-log/Hsm/Log.hs +++ b/hsm-log/Hsm/Log.hs @@ -5,6 +5,7 @@ module Hsm.Log ( Severity(Attention, Info, Trace) , Log + , getLevel , makeLoggerIO , logMsg , logBlock @@ -37,10 +38,13 @@ type instance DispatchOf (Log d) = Static WithSideEffects newtype instance StaticRep (Log d) = Log Severity +getLevel :: Log d :> es => Eff es Severity +getLevel = getStaticRep >>= \(Log level) -> return level + makeLoggerIO :: forall d es. (KnownSymbol d, Log d :> es) => Eff es (Severity -> String -> IO ()) -makeLoggerIO = getStaticRep >>= \(Log level) -> return $ loggerIO level +makeLoggerIO = loggerIO <$> getLevel where loggerIO level severity message = when (severity <= level) $ do |