diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-09-12 01:43:15 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-09-12 01:43:15 +0000 |
| commit | e36a24df176cdbbd634738115f847e4fa46a0aea (patch) | |
| tree | 0e76c7651a0b3ec4d190bdf4afd4614630717733 /hsm-log/Hsm/Log | |
| parent | ac5a85abac1a47645713d3b7539fccb1b744dd85 (diff) | |
Adds `Logs` constraint combinator
Diffstat (limited to 'hsm-log/Hsm/Log')
| -rw-r--r-- | hsm-log/Hsm/Log/Options.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hsm-log/Hsm/Log/Options.hs b/hsm-log/Hsm/Log/Options.hs index 0e00b32..877aa4b 100644 --- a/hsm-log/Hsm/Log/Options.hs +++ b/hsm-log/Hsm/Log/Options.hs @@ -9,7 +9,7 @@ where import Data.Proxy (Proxy (Proxy)) import GHC.TypeLits (symbolVal) import Generic.Data.Function.Common.Generic.Meta (KnownSymbols, symbolVals) -import Hsm.Log (LoggerOptionPrefix, Severity) +import Hsm.Log (LogOptionPrefix, Severity) import Language.Haskell.TH ( Bang (Bang) , Body (NormalB) @@ -56,7 +56,7 @@ makeLoggerOptionParser dataNameString parserNameString defaultSeverity = loggers = symbolVals @ls -- Record dataName = mkName dataNameString - fieldPrefix = symbolVal $ Proxy @LoggerOptionPrefix + fieldPrefix = symbolVal $ Proxy @LogOptionPrefix fieldName logger = mkName $ fieldPrefix <> logger fieldBang = Bang NoSourceUnpackedness NoSourceStrictness fieldType = ConT ''Severity |