rewrite QS endpoint that wasn't using defendpoint

src/metabase/api/qs.clj

@@ -33,15 +33,15 @@
     (build-response query-execution)))
 
 
-(def query-result-csv
-  (GET "/:uuid/csv" [uuid]
-    (let-404 [{:keys [result_data] :as query-execution} (eval `(sel :one ~all-fields :uuid ~uuid))]
-      {:status 200
-       :body (with-out-str (csv/write-csv *out* (into [(:columns result_data)] (:rows result_data))))
-       :headers {"Content-Type" "text/csv", "Content-Disposition" (str "attachment; filename=\"query_result_" (now-iso8601) ".csv\"")}})))
-
-
-(define-routes query-result-csv)
+(defendpoint GET "/:uuid/csv" [uuid]
+  (let-404 [{{:keys [columns rows]} :result_data} (sel :one all-fields :uuid uuid)]
+    {:status 200
+     :body (with-out-str
+             (csv/write-csv *out* (into [columns] rows)))
+     :headers {"Content-Type" "text/csv"
+               "Content-Disposition" (str "attachment; filename=\"query_result_" (now-iso8601) ".csv\"")}}))
+
+(define-routes)
 
 
 ;; ===============================================================================================================