a lot of progress towards unification.

src/clj/auto_ap/graphql.clj

@@ -602,7 +602,11 @@
   ([id q v]
    (println "executing graphql query" id q v)
    (try 
-     (time (simplify (execute schema q v {:id id})))
+     (let [result (time (simplify (execute schema q v {:id id})))]
+       (when (seq (:errors result))
+         (throw (ex-info "GraphQL error" {:result result})))
+       result)
+     
      (catch Exception e
        (if-let [v (:validation-error (ex-data e))]
          (println "validation error" v)