honeycomb 0.0.0.2 → 0.0.0.3

raw patch · 3 files changed

+5/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• honeycomb.cabal +2/−2
• src/Honeycomb/API/Events.hs +2/−2
• src/Honeycomb/API/Markers.hs +1/−1

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 14f9953f98d9687fa9bfcdfd40999758cad395a278f601b9c6ca6c9c0eb9f41f+-- hash: 71e86a9d866e470b3be18e84cf0f065d7cd0e6d870980972dc38f8eb2488fd6a  name:           honeycomb-version:        0.0.0.2+version:        0.0.0.3 description:    Please see the README on GitHub at <https://github.com/githubuser/honeycomb#readme> homepage:       https://github.com/iand675/hs-honeycomb#readme bug-reports:    https://github.com/iand675/hs-honeycomb/issues

@@ -52,7 +52,7 @@ sendEvent e = do   client <- asks (view honeycombClientL)   let ds = client ^. configL . to defaultDataset-  r <- post httpLBS ["1", "events", "ds"] hs $ eventData e+  r <- post httpLBS ["1", "events", fromDatasetName ds] hs $ eventData e   case (statusCode $ getResponseStatus r, getResponseBody r) of     (400, "unknown API key - check your credentials") -> throw UnknownApiKey     (400, "request body is too large") -> throw RequestBodyTooLarge@@ -94,7 +94,7 @@ sendBatchedEvents' _ events = do   config <- asks (view (honeycombClientL . configL))   let ds = defaultDataset config-  r <- post httpLBS ["1", "batch", "ds"] [] events+  r <- post httpLBS ["1", "batch", fromDatasetName ds] [] events   case getResponseBody $ decodeJSON r of     Left err -> throw $ MalformedJSONResponse err (getResponseBody r)     Right ok -> pure ok

@@ -81,7 +81,7 @@ createMarker m = do   c <- asks (view honeycombClientL)   let ds = fromDatasetName $ defaultDataset $ clientConfig c-  getResponseBody <$> post httpJSON ["1", "markers", "ds"] [] m+  getResponseBody <$> post httpJSON ["1", "markers", ds] [] m -- updateMarker :: Client -> Marker -- deleteMarker :: Client -> Marker -- listAllMarkers :: Client -> Marker