mixpanel-client 0.2.0 → 0.2.1

raw patch · 3 files changed

+13/−3 lines, 3 files

Files

CHANGELOG.md +6/−0
mixpanel-client.cabal +1/−1
src/MixPanel.hs +6/−2

CHANGELOG.md view

@@ -7,6 +7,12 @@  ## [Unreleased] +## [0.2.1] - 2019-08-26++### Fixed++- 0.2.0 was a brown-paper-bag release+ ## [0.2.0] - 2019-03-13  ### Changes

mixpanel-client.cabal view

@@ -1,5 +1,5 @@ name:           mixpanel-client-version:        0.2.0+version:        0.2.1 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

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} module MixPanel   ( MixPanelError(..)   , AuthToken(..)@@ -34,12 +35,15 @@                                                 ) import           MixPanel.Types.EngageData      ( EngageData, DistinctId, Operation(..), mkEngageData ) +#if !MIN_VERSION_servant_client(0,16,0)+#define ClientError ServantError+#endif  host :: BaseUrl host = BaseUrl Https "api.mixpanel.com" 443 ""  data MixPanelError-  = ServantError ServantError+  = ClientError ClientError   | Error Text   deriving (Show, Exception) @@ -71,7 +75,7 @@ runMixPanel clientEnv comp = do   result <- runClientM comp clientEnv   return $ case result of-    Left err -> Left $ ServantError err+    Left err -> Left $ ClientError err     Right (Fail err) -> Left $ Error err     Right Success -> Right ()