pusher-http-haskell 2.1.0.3 → 2.1.0.4

raw patch · 3 files changed

+7/−9 lines, 3 filesdep ~aesonPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: aeson

API changes (from Hackage documentation)

Files

• pusher-http-haskell.cabal +2/−2
• src/Network/Pusher/Protocol.hs +1/−4
• test/Webhook.hs +4/−3

@@ -1,6 +1,6 @@ cabal-version: 1.18 name:          pusher-http-haskell-version:       2.1.0.3+version:       2.1.0.4 license:       MIT license-file:  LICENSE copyright:     (c) Will Sewell, 2016@@ -39,7 +39,7 @@     default-extensions: OverloadedStrings     ghc-options:        -Wcompat -Wmissing-signatures -Wall     build-depends:-        aeson >=1.0 && <1.6,+        aeson >=1.0 && <2.1,         base >=4.11 && <4.16,         bytestring >=0.10 && <0.12,         base16-bytestring >=0.1 && <1.1,

@@ -84,10 +84,7 @@   parseJSON =     A.withObject "ChannelsInfo" $ \v -> do       channelsV <- v .: "channels"-      A.withObject-        "HashMap"-        (fmap ChannelsInfo . mapM A.parseJSON)-        channelsV+      ChannelsInfo <$> A.parseJSON channelsV  -- | The possible returned channel attributes when multiple when multiple --  channels are queried.

@@ -6,6 +6,7 @@ import qualified Data.ByteString as B import qualified Data.ByteString.Char8 as BC import qualified Data.HashMap.Strict as HM+import qualified Data.Text as T import Data.Word (Word64) import Network.Pusher   ( WebhookEv (..),@@ -148,9 +149,9 @@         { onChannel = "presence-foo",           clientEvName = "client-event",           clientEvBody =-            Just-              $ A.Object-              $ HM.fromList [("name", A.String "John"), ("message", A.String "Hello")],+            Just $+              A.toJSON+                (HM.fromList [("name", "John"), ("message", "Hello")] :: HM.HashMap T.Text T.Text),           withSocketId = "219049.596715",           withPossibleUser = Just . User $ "sturdy-window-821"         }