mixpanel-client 0.2.1 → 0.3.0

raw patch · 5 files changed

+18/−5 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ MixPanel: engage' :: Env -> DistinctId -> (EngageData -> EngageData) -> Operation -> IO (Either MixPanelError ())

+ MixPanel.Types.EngageData: EngageData :: AuthToken -> DistinctId -> Maybe Text -> Maybe Text -> Maybe Bool -> Operation -> EngageData

+ MixPanel.Types.EngageData: [distinctId] :: EngageData -> DistinctId

+ MixPanel.Types.EngageData: [ignoreTime] :: EngageData -> Maybe Bool

+ MixPanel.Types.EngageData: [ip] :: EngageData -> Maybe Text

+ MixPanel.Types.EngageData: [operation] :: EngageData -> Operation

+ MixPanel.Types.EngageData: [time] :: EngageData -> Maybe Text

+ MixPanel.Types.EngageData: [token] :: EngageData -> AuthToken

Files

CHANGELOG.md +8/−0
mixpanel-client.cabal +1/−1
src/MixPanel.hs +5/−0
src/MixPanel/Types/EngageData.hs +3/−3
test/TypesSpec.hs +1/−1

CHANGELOG.md view

@@ -7,6 +7,14 @@  ## [Unreleased] +## [0.3.0] - 2020-12-14++### Fixed++- expose EngageData+- EngageData.ignoreTime should be a `Maybe Bool`+- fix parsing of ignoreTime+ ## [0.2.1] - 2019-08-26  ### Fixed

mixpanel-client.cabal view

@@ -1,5 +1,5 @@ name:           mixpanel-client-version:        0.2.1+version: 0.3.0 synopsis:       Mixpanel client homepage:       https://github.com/hercules-ci/mixpanel-client#readme bug-reports:    https://github.com/hercules-ci/mixpanel-client/issues

src/MixPanel.hs view

@@ -11,6 +11,7 @@   , track   , alias   , engage+  , engage'   -- HTTP manager reexports   , tlsManagerSettings   , HTTP.newManager@@ -95,3 +96,7 @@ engage :: Env -> DistinctId -> Operation -> IO (Either MixPanelError ()) engage Env{..} distinctid operation =   runMixPanel clientEnv $ engageC' $ mkEngageData authtoken distinctid operation++engage' :: Env -> DistinctId -> (EngageData -> EngageData) -> Operation -> IO (Either MixPanelError ())+engage' Env{..} distinctid f operation =+  runMixPanel clientEnv $ engageC' $ f $ mkEngageData authtoken distinctid operation

src/MixPanel/Types/EngageData.hs view

@@ -1,7 +1,7 @@ {-# LANGUAGE GADTs #-} {-# LANGUAGE FlexibleContexts #-} module MixPanel.Types.EngageData-  ( EngageData+  ( EngageData(..)   , DistinctId   , mkEngageData   , Operation(..)@@ -61,7 +61,7 @@   , distinctId :: DistinctId   , ip :: Maybe Text   , time :: Maybe Text-  , ignoreTime :: Maybe Text+  , ignoreTime :: Maybe Bool   , operation :: Operation   } @@ -70,7 +70,7 @@     [ "$token" .= token     , "$distinct_id" .= distinctId     , "$time" .= time-    , "$ignoreTime" .= ignoreTime+    , "$ignore_time" .= ignoreTime     , "$ip" .= ip     , operationIdentifier operation .= toJSON operation     ]

test/TypesSpec.hs view

@@ -20,4 +20,4 @@   it "EngageData merges properties" $     let       ed = mkEngageData (AuthToken "foobar") "123" $ Set (fromList [ "customProperty" .= ("foobar" :: String)])-    in encode ed `shouldBe` "{\"$distinct_id\":\"123\",\"$set\":{\"customProperty\":\"foobar\"},\"$token\":\"foobar\",\"$ip\":null,\"$ignoreTime\":null,\"$time\":null}"+    in encode ed `shouldBe` "{\"$distinct_id\":\"123\",\"$set\":{\"customProperty\":\"foobar\"},\"$token\":\"foobar\",\"$ip\":null,\"$ignore_time\":null,\"$time\":null}"