preamble 0.0.34 → 0.0.35

raw patch · 2 files changed

+9/−1 lines, 2 files

Files

• preamble.cabal +1/−1
• src/Preamble/Ctx.hs +8/−0

@@ -1,5 +1,5 @@ name:                  preamble-version:               0.0.34+version:               0.0.35 synopsis:              Yet another prelude. description:           A prelude built on basic-prelude. homepage:              https://github.com/swift-nav/preamble

@@ -7,6 +7,7 @@   , preCtx   , runStatsCtx   , preStatsCtx+  , labStatsCtx   ) where  import Control.Monad.Logger@@ -54,4 +55,11 @@ preStatsCtx :: MonadStatsCtx c m => Pairs -> TransT StatsCtx m a -> m a preStatsCtx preamble action = do   c <- view statsCtx <&> cPreamble <>~ preamble+  runTransT c action++-- | Update stats context's labels.+--+labStatsCtx :: MonadStatsCtx c m => Tags -> TransT StatsCtx m a -> m a+labStatsCtx labels action = do+  c <- view statsCtx <&> scLabels <>~ labels   runTransT c action