preamble 0.0.32 → 0.0.33

raw patch · 3 files changed

+11/−3 lines, 3 files

Files

Shakefile.hs +2/−2
preamble.cabal +1/−1
src/Preamble/Stats.hs +8/−0

Shakefile.hs view

@@ -36,8 +36,8 @@   -- | sanity   --   fake "." pats "sanity" $ const $-    need [ fakeFile "build-error", fakeFile "lint" ]+    need [ "build-error", "lint" ]    -- | Default things to run.   ---  want [ fakeFile "sanity", fakeFile "format" ]+  want [ "sanity", "format" ]

preamble.cabal view

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

src/Preamble/Stats.hs view

@@ -10,6 +10,8 @@   , statsHistogram   , statsTimer   , statsSet+  , statsIncrement+  , statsDecrement   ) where  import Network.Socket.ByteString@@ -42,3 +44,9 @@  statsSet :: (MonadStatsCtx c m, Show a) => Text -> a -> Tags -> m () statsSet = stats "s"++statsIncrement :: MonadStatsCtx c m => Text -> Tags -> m ()+statsIncrement name = stats "c" name (1 :: Int)++statsDecrement :: MonadStatsCtx c m => Text -> Tags -> m ()+statsDecrement name = stats "c" name (-1 :: Int)