ekg-cloudwatch 0.0.1.3 → 0.0.1.4
raw patch · 2 files changed
+4/−3 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
ekg-cloudwatch.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: ekg-cloudwatch-version: 0.0.1.3+version: 0.0.1.4 synopsis: An ekg backend for Amazon Cloudwatch description: Push ekg metrics to Amazon Cloudwatch homepage: https://github.com/sellerlabs/ekg-cloudwatch#readme
src/System/Remote/Monitoring/CloudWatch.hs view
@@ -21,7 +21,7 @@ myThreadId, threadDelay) import Control.Exception import Control.Lens-import Control.Monad (void, guard)+import Control.Monad (void, guard, forM_) import qualified Data.HashMap.Strict as Map import Data.Int (Int64) import Data.Monoid@@ -152,7 +152,8 @@ Metrics.Gauge n -> sendMetric name (mdValue ?~ fromIntegral n) Metrics.Distribution d ->- sendMetric name (mdStatisticValues .~ conv d)+ forM_ (conv d) $ \dist ->+ sendMetric name (mdStatisticValues ?~ dist) Metrics.Label l -> pure ()