morpheus-graphql-subscriptions 0.28.4 → 0.28.5
raw patch · 5 files changed
+30/−30 lines, 5 filesdep ~aesondep ~reludedep ~websocketssetup-changedPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: aeson, relude, websockets
API changes (from Hackage documentation)
Files
- Setup.hs +2/−0
- morpheus-graphql-subscriptions.cabal +5/−5
- src/Data/Morpheus/Subscriptions/Apollo.hs +21/−21
- src/Data/Morpheus/Subscriptions/ClientConnectionStore.hs +1/−2
- src/Data/Morpheus/Subscriptions/Stream.hs +1/−2
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
morpheus-graphql-subscriptions.cabal view
@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.38.1.+-- This file has been generated from package.yaml by hpack version 0.36.1. -- -- see: https://github.com/sol/hpack name: morpheus-graphql-subscriptions-version: 0.28.4+version: 0.28.5 synopsis: Morpheus GraphQL Subscriptions description: Build GraphQL APIs with your favourite functional language! category: web, graphql, subscriptions@@ -40,17 +40,17 @@ src ghc-options: -Wall build-depends:- aeson >=1.4.4 && <3.0.0+ aeson >=1.3.1.1 && <3.0.0 , base >=4.7.0 && <5.0.0 , bytestring >=0.10.4 && <1.0.0 , morpheus-graphql-app >=0.28.0 && <0.29.0 , morpheus-graphql-core >=0.28.0 && <0.29.0 , mtl >=2.0.0 && <3.0.0- , relude >=0.3.0 && <2.0.0+ , relude >=0.1.1 && <2.0.0 , text >=1.2.3 && <3.0.0 , transformers >=0.3.0 && <1.0.0 , unliftio-core >=0.0.1 && <1.0.0 , unordered-containers >=0.2.8 && <1.0.0 , uuid >=1.0.0 && <2.0.0- , websockets >=0.12.6.0 && <1.0.0+ , websockets >=0.12.5.2 && <1.0.0 default-language: Haskell2010
src/Data/Morpheus/Subscriptions/Apollo.hs view
@@ -92,11 +92,11 @@ objectParser o = ApolloSubscription <$> o- .:? "id"- <*> o- .: "type"- <*> o- .:? "payload"+ .:? "id"+ <*> o+ .: "type"+ <*> o+ .:? "payload" data RequestPayload = RequestPayload { payloadOperationName :: Maybe FieldName,@@ -111,19 +111,19 @@ objectParser o = RequestPayload <$> o- .:? "operationName"- <*> o- .:? "query"- <*> o- .:? "variables"+ .:? "operationName"+ <*> o+ .:? "query"+ <*> o+ .:? "variables" instance (ToJSON a) => ToJSON (ApolloSubscription a) where toEncoding (ApolloSubscription id' type' payload') =- pairs- $ encodeMaybe "id" id'- <> "type"- .= type'- <> encodeMaybe "payload" payload'+ pairs $+ encodeMaybe "id" id'+ <> "type"+ .= type'+ <> encodeMaybe "payload" payload' where -- Messages should only include these fields when they have real values, -- for example the MessageAck response should only include the type and optionally@@ -138,8 +138,8 @@ PendingConnection -> m Connection acceptApolloRequest pending =- liftIO- $ acceptRequestWith+ liftIO $+ acceptRequestWith pending (acceptApolloSubProtocol (pendingRequest pending)) @@ -226,10 +226,10 @@ validateSub ApolloSubscription {apolloType = GqlComplete, apolloId} = SessionStop <$> validateSession apolloId validateSub ApolloSubscription {apolloType} =- Left- $ "Unknown Request type \""- <> pack (unpack $ apolloResponseToProtocolMsgType apolloType)- <> "\"."+ Left $+ "Unknown Request type \""+ <> pack (unpack $ apolloResponseToProtocolMsgType apolloType)+ <> "\"." validateSession :: Maybe ID -> Validation ID validateSession = maybe (Left "\"id\" was not provided") Right
src/Data/Morpheus/Subscriptions/ClientConnectionStore.hs view
@@ -225,8 +225,7 @@ empty = ClientConnectionStore empty HM.empty HM.empty mapConnections ::- ( HashMap UUID (ClientConnection m) -> HashMap UUID (ClientConnection m)- ) ->+ (HashMap UUID (ClientConnection m) -> HashMap UUID (ClientConnection m)) -> ClientConnectionStore e m -> ClientConnectionStore e m mapConnections f ClientConnectionStore {..} =
src/Data/Morpheus/Subscriptions/Stream.hs view
@@ -209,8 +209,7 @@ PubOutput $ handleResponseHTTP (app req) handleResponseHTTP ::- ( Monad m- ) =>+ (Monad m) => ResponseStream e m (Value VALID) -> ApiContext PUB e m -> m GQLResponse