preamble 0.0.35 → 0.0.36

raw patch · 4 files changed

+10/−6 lines, 4 files

Files

preamble.cabal +1/−1
src/Preamble/Ctx.hs +1/−1
src/Preamble/Stats.hs +6/−4
src/Preamble/Types/Ctx.hs +2/−0

preamble.cabal view

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

src/Preamble/Ctx.hs view

@@ -48,7 +48,7 @@   h <- liftIO $ fromMaybe "127.0.0.1" <$> lookupEnv "STATS_HOST"   a <- liftIO $ inet_addr h   let stat m = void $ sendTo s m $ SockAddrInet 8125 a-  runTransT (StatsCtx c mempty stat) action+  runTransT (StatsCtx c mempty stat mempty) action  -- | Update stats context's preamble. --

src/Preamble/Stats.hs view

@@ -14,14 +14,16 @@   , statsDecrement   ) where -import Preamble.Prelude-import Preamble.Types+import qualified Data.Text        as T+import           Preamble.Prelude+import           Preamble.Types  stats :: (MonadStatsCtx c m, Show a) => Text -> Text -> a -> Tags -> m () stats metric name value tags = do   labels <- (<> tags) <$> view scLabels-  let statsd = name -:- show value -|- metric-      tagged = intercalate "," $ flip map labels $ uncurry (-:-)+  prefix <- ap (bool mempty) T.null <$> view scPrefix+  let statsd = prefix <> name -:- show value -|- metric+      tagged = T.intercalate "," $ flip map labels $ uncurry (-:-)   stat <- view scStat   liftIO $ stat $ encodeUtf8 $ bool (statsd -|- "#" <> tagged) statsd $ null labels

src/Preamble/Types/Ctx.hs view

@@ -51,6 +51,8 @@     -- ^ Tags to append to every stat.   , _scStat   :: Stat     -- ^ Configurable stat function.+  , _scPrefix :: Text+    -- ^ Stats prefix.   }  $(makeClassyConstraints ''StatsCtx [''HasCtx])