Update CI settings

src/Data/GraphQL/Schema.hs

@@ -148,7 +148,7 @@ resolveFieldValue :: MonadPlus m
     -> (Field -> a -> CollectErrsT m (HashMap Text Aeson.Value))
     -> Field
     -> CollectErrsT m (HashMap Text Aeson.Value)
-resolveFieldValue f resolveRight fld@(Field alias name args _) = do
+resolveFieldValue f resolveRight fld@(Field _ _ args _) = do
     result <- lift $ runExceptT . runActionT $ f args
     either resolveLeft (resolveRight fld) result
       where
@@ -172,7 +172,7 @@ resolve resolvers = fmap (Aeson.toJSON . fold) . traverse tryResolvers
     tryResolvers fld = mplus (maybe mzero (tryResolver fld) $ find (compareResolvers fld) resolvers) $ errmsg fld
     compareResolvers (Field _ name _ _) (Resolver name' _) = name == name'
     tryResolver fld (Resolver _ resolver)  = resolver fld
-    errmsg fld@(Field alias name _ _) = do
+    errmsg fld@(Field _ name _ _) = do
         addErrMsg $ T.unwords ["field", name, "not resolved."]
         return $ HashMap.singleton (aliasOrName fld) Aeson.Null