diff options
| author | Eugen Wissner <belka@caraus.de> | 2021-09-23 08:23:38 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2021-09-23 08:23:38 +0200 |
| commit | fbfbb3e73f4adc973fd2b515c4fb665e1556a214 (patch) | |
| tree | 9f625087cb6dedffce6737cd71e4ea703eea4fb7 /tests/Test/DirectiveSpec.hs | |
| parent | eedab9e74250a4af56aec70c2909ece95a73daaa (diff) | |
| download | graphql-fbfbb3e73f4adc973fd2b515c4fb665e1556a214.tar.gz | |
Remove raw-strings-qq
Diffstat (limited to 'tests/Test/DirectiveSpec.hs')
| -rw-r--r-- | tests/Test/DirectiveSpec.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/Test/DirectiveSpec.hs b/tests/Test/DirectiveSpec.hs index 2d586f6..50caa5b 100644 --- a/tests/Test/DirectiveSpec.hs +++ b/tests/Test/DirectiveSpec.hs @@ -12,11 +12,11 @@ import Data.Aeson (object, (.=)) import qualified Data.Aeson as Aeson import qualified Data.HashMap.Strict as HashMap import Language.GraphQL +import Language.GraphQL.TH import Language.GraphQL.Type import qualified Language.GraphQL.Type.Out as Out import Test.Hspec (Spec, describe, it) import Test.Hspec.GraphQL -import Text.RawString.QQ (r) experimentalResolver :: Schema IO experimentalResolver = schema queryType Nothing Nothing mempty @@ -33,7 +33,7 @@ spec :: Spec spec = describe "Directive executor" $ do it "should be able to @skip fields" $ do - let sourceQuery = [r| + let sourceQuery = [gql| { experimentalField @skip(if: true) } @@ -43,7 +43,7 @@ spec = actual `shouldResolveTo` emptyObject it "should not skip fields if @skip is false" $ do - let sourceQuery = [r| + let sourceQuery = [gql| { experimentalField @skip(if: false) } @@ -56,7 +56,7 @@ spec = actual `shouldResolveTo` expected it "should skip fields if @include is false" $ do - let sourceQuery = [r| + let sourceQuery = [gql| { experimentalField @include(if: false) } @@ -66,7 +66,7 @@ spec = actual `shouldResolveTo` emptyObject it "should be able to @skip a fragment spread" $ do - let sourceQuery = [r| + let sourceQuery = [gql| { ...experimentalFragment @skip(if: true) } @@ -80,7 +80,7 @@ spec = actual `shouldResolveTo` emptyObject it "should be able to @skip an inline fragment" $ do - let sourceQuery = [r| + let sourceQuery = [gql| { ... on Query @skip(if: true) { experimentalField |