diff options
| author | Eugen Wissner <belka@caraus.de> | 2022-12-24 18:09:52 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2022-12-24 18:09:52 +0100 |
| commit | 2f9881bb211fa40361a745078ed790e19747c801 (patch) | |
| tree | d986d5fdb5179d2b206eba5d6010763f6e18fa6b /tests/Schemas/HeroSchema.hs | |
| parent | bf2e4925b45991476c430bd635d8fbabe7cbecbf (diff) | |
| download | graphql-2f9881bb211fa40361a745078ed790e19747c801.tar.gz | |
Fix GHC 9.2 warnings and deprecations
- Fix GHC 9.2 warnings
- Convert comments to proper deprecations
Diffstat (limited to 'tests/Schemas/HeroSchema.hs')
| -rw-r--r-- | tests/Schemas/HeroSchema.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/Schemas/HeroSchema.hs b/tests/Schemas/HeroSchema.hs index 71b7a10..63c461c 100644 --- a/tests/Schemas/HeroSchema.hs +++ b/tests/Schemas/HeroSchema.hs @@ -6,7 +6,7 @@ module Schemas.HeroSchema (heroSchema) where -import Control.Exception (Exception(..), SomeException) +import Control.Exception (Exception(..)) import Control.Monad.Catch (throwM) import Language.GraphQL.Error (ResolverException (..)) import qualified Language.GraphQL.Type.In as In @@ -25,11 +25,11 @@ instance Exception HeroException where ResolverException resolverException <- fromException e cast resolverException -heroSchema :: Type.Schema (Either SomeException) +heroSchema :: Type.Schema IO heroSchema = schemaWithTypes Nothing queryType Nothing Nothing [] mempty -type ObjectType = Out.ObjectType (Either SomeException) +type ObjectType = Out.ObjectType IO queryType :: ObjectType queryType = Out.ObjectType "Query" Nothing [] @@ -42,7 +42,7 @@ queryType = Out.ObjectType "Query" Nothing [] $ In.Argument Nothing (In.NamedScalarType Type.id) Nothing heroResolver = pure $ Type.Object mempty -stringField :: Out.Field (Either SomeException) +stringField :: Out.Field IO stringField = Out.Field Nothing (Out.NonNullScalarType Type.string) HashMap.empty heroType :: ObjectType |