preamble 0.0.36 → 0.0.37
raw patch · 2 files changed
+2/−2 lines, 2 files
Files
- preamble.cabal +1/−1
- src/Preamble/Stats.hs +1/−1
preamble.cabal view
@@ -1,5 +1,5 @@ name: preamble-version: 0.0.36+version: 0.0.37 synopsis: Yet another prelude. description: A prelude built on basic-prelude. homepage: https://github.com/swift-nav/preamble
src/Preamble/Stats.hs view
@@ -21,7 +21,7 @@ stats :: (MonadStatsCtx c m, Show a) => Text -> Text -> a -> Tags -> m () stats metric name value tags = do labels <- (<> tags) <$> view scLabels- prefix <- ap (bool mempty) T.null <$> view scPrefix+ prefix <- ap (flip bool mempty) T.null <$> view scPrefix let statsd = prefix <> name -:- show value -|- metric tagged = T.intercalate "," $ flip map labels $ uncurry (-:-) stat <- view scStat