Fix TH generation for GraphQL input objects (#276)

higherkindness · Jan 8, 2021 · fcdb5d4 · fcdb5d4
1 parent b763d4f
commit fcdb5d4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/.github/workflows/deploy.yml b/.github/workflows/deploy.yml
@@ -37,6 +37,7 @@ jobs:
         sudo apt-get install ruby-dev
         sudo gem install bundler --force
         sudo gem update --system
+        sudo bundle update --bundler
         sudo bundle install --gemfile docs/Gemfile --path vendor/bundle
     - name: Build microsite from last release
       run: |

diff --git a/graphql/src/Mu/GraphQL/Quasi.hs b/graphql/src/Mu/GraphQL/Quasi.hs
@@ -194,11 +194,11 @@ typeToDec _ _ _ (GQL.InputObjectTypeDefinition _ name _ fields) =
     ginputTypeToType (GQL.TypeNonNull (GQL.NonNullTypeNamed a)) =
       [t| $(typeToPrimType a) |]
     ginputTypeToType (GQL.TypeNonNull (GQL.NonNullTypeList a)) =
-      [t| 'ListRef $(ginputTypeToType a) |]
+      [t| 'TList $(ginputTypeToType a) |]
     ginputTypeToType (GQL.TypeNamed a) =
-      [t| 'OptionalRef $(typeToPrimType a) |]
+      [t| 'TOption $(typeToPrimType a) |]
     ginputTypeToType (GQL.TypeList a) =
-      [t| 'OptionalRef ('ListRef $(ginputTypeToType a)) |]
+      [t| 'TOption ('TList $(ginputTypeToType a)) |]
     typeToPrimType :: GQL.Name -> Q Type
     typeToPrimType "Int"        = [t|'TPrimitive Integer|]
     typeToPrimType "Float"      = [t|'TPrimitive Double|]