Adds completely arbitrary queries

src/clj/auto_ap/graphql.clj

@@ -1345,13 +1345,10 @@
   ([id q]
    (query id q nil ))
   ([id q v]
-   
    (lc/with-context {:query q}
      (log/info "Executing query" q)
-     
      (try 
        (let [[result time] (time-it (simplify (execute schema q v {:id id})))]
-         
          (info-event "Query completed"
                      {:time (:time time)
                       :errors (seq (:errors result))})
@@ -1360,7 +1357,6 @@
          result)
 
        (catch Exception e
-         
          (if-let [v (or (:validation-error (ex-data e))
                         (:validation-error (ex-data (.getCause e)))
                         )]