                         (post-process query-type)
                         remove-bonus-keys)
         columns    (vec (keys (first results)))]
-    (log/error "THIS Query from execute-query")    
-    (log/error query) 
-    (log/error "THIS result from execute-query")    
-    (log/error results)
-
     {:columns   columns
      :rows      (for [row results]
                   (mapv row columns))

                     :settings (:settings query))]
    (binding [*query* mbql-query]
      (let [[query-type druid-query] (build-druid-query mbql-query)]
        (log/error "THIS Query from tonative")    
        (log/error druid-query)
        {:query      druid-query
         :query-type query-type}))))


(defmulti ^:private post-process query-type-dispatch-fn)

(defmethod post-process ::select     [_ results] (->> results first :result :events (map :event)))
(defmethod post-process ::total      [_ results] (map :result results))
(defmethod post-process ::topN       [_ results] (-> results first :result))
(defmethod post-process ::groupBy    [_ results] (map :event results))

