graphql 1.2.0.2 → 1.2.0.3
raw patch · 3 files changed
+6/−29 lines, 3 files
Files
- CHANGELOG.md +5/−0
- graphql.cabal +1/−1
- src/Language/GraphQL/Execute.hs +0/−28
CHANGELOG.md view
@@ -6,6 +6,10 @@ and this project adheres to [Haskell Package Versioning Policy](https://pvp.haskell.org/). +## [1.2.0.3] - 2024-01-09+### Fixed+- Fix corrupted source distribution.+ ## [1.2.0.2] - 2024-01-09 ### Fixed - `gql` removes not only leading `\n` but also `\r`.@@ -515,6 +519,7 @@ ### Added - Data types for the GraphQL language. +[1.2.0.3]: https://git.caraus.tech/OSS/graphql/compare/v1.2.0.2...v1.2.0.3 [1.2.0.2]: https://git.caraus.tech/OSS/graphql/compare/v1.2.0.1...v1.2.0.2 [1.2.0.1]: https://git.caraus.tech/OSS/graphql/compare/v1.2.0.0...v1.2.0.1 [1.2.0.0]: https://git.caraus.tech/OSS/graphql/compare/v1.1.0.0...v1.2.0.0
graphql.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.4 name: graphql-version: 1.2.0.2+version: 1.2.0.3 synopsis: Haskell GraphQL implementation description: Haskell <https://spec.graphql.org/June2018/ GraphQL> implementation. category: Language
src/Language/GraphQL/Execute.hs view
@@ -560,37 +560,9 @@ matchFieldValues' = matchFieldValues coerceArgumentValue $ Full.node <$> argumentValues - coerceArgumentValue inputType (Transform.Int integer) =- coerceInputLiteral inputType (Type.Int integer)- coerceArgumentValue inputType (Transform.Boolean boolean) =- coerceInputLiteral inputType (Type.Boolean boolean)- coerceArgumentValue inputType (Transform.String string) =- coerceInputLiteral inputType (Type.String string)- coerceArgumentValue inputType (Transform.Float float) =- coerceInputLiteral inputType (Type.Float float)- coerceArgumentValue inputType (Transform.Enum enum) =- coerceInputLiteral inputType (Type.Enum enum)- coerceArgumentValue inputType Transform.Null- | In.isNonNullType inputType = Nothing- | otherwise = coerceInputLiteral inputType Type.Null- coerceArgumentValue (In.ListBaseType inputType) (Transform.List list) =- let coerceItem = coerceArgumentValue inputType- in Type.List <$> traverse coerceItem list- coerceArgumentValue (In.InputObjectBaseType inputType) (Transform.Object object)- | In.InputObjectType _ _ inputFields <- inputType =- let go = forEachField object- resultMap = HashMap.foldrWithKey go (pure mempty) inputFields- in Type.Object <$> resultMap- coerceArgumentValue _ (Transform.Variable variable) = pure variable- coerceArgumentValue _ _ = Nothing coerceArgumentValue inputType transform = coerceInputLiteral inputType $ extractArgumentValue transform-<<<<<<< Updated upstream -=======- forEachField object variableName (In.InputField _ variableType defaultValue) =- matchFieldValues coerceArgumentValue object variableName variableType defaultValue->>>>>>> Stashed changes extractArgumentValue (Transform.Int integer) = Type.Int integer extractArgumentValue (Transform.Boolean boolean) = Type.Boolean boolean extractArgumentValue (Transform.String string) = Type.String string