increase frontend timeout when calling the API, fixes #62

Author: refset

src/clj/xt_play/handler.clj

@@ -68,6 +68,7 @@
 (defn run-handler [{{body :body} :parameters :as request}]
   (log/debug "run-handler" request)
   (log/info :db-run body)
+  #_(Thread/sleep 4000) ;; useful to confirm the front :db-run-opts timeout
   (if-let [result (txs/run!! body)]
     {:status 200
      :body result}

src/cljs/xt_play/model/run.cljs

@@ -10,7 +10,7 @@
     {:method :post
      :uri "/beta-db-run"
      :params params
-     :timeout 3000
+     :timeout 30000 ;; timeout must be greater than the API cold start response time
      :format (ajax/json-request-format)
      :response-format (ajax/json-response-format {:keywords? true})
      :on-success [::request-success]