Add Resolver module with helpers and exceptions

This commit is contained in:
2022-08-24 22:33:20 +03:00
parent 53ce65d713
commit 92463f7c4a
4 changed files with 65 additions and 1 deletions

View File

@@ -24,7 +24,7 @@ fromGraphQLToIntegral (Type.Int value) = Just $ fromIntegral value
fromGraphQLToIntegral (Type.String value) =
case Text.Read.decimal value of
Right (converted, "") -> Just converted
_ -> Nothing
_conversionError -> Nothing
fromGraphQLToIntegral _ = Nothing
-- | Instances of this typeclass can be converted to GraphQL internal