            :alias alias
            :select select)))
 
-(defn annotate-column-with-id [table column-id]
+(defn annotate-column-with-id
+  "Fetch `Field` with COLUMN-ID and call `annotate-column`."
+  [table column-id]
+  {:pre [(integer? column-id)]}
   (annotate-column table (sel :one Field :id column-id)))
 
 (defn annotate-special-column [column]

    {:status :completed
     :row_count (count results)
     :data {:rows (->> results
                       (map #(map % (:ordered-aliases query-dict)))
                       (map format-result))
            :columns (map :name columns)
            :cols (map columns-by-name
                       ordered-columns)}}))


(defn apply-breakout [query fields]
  (let [field-names (->> fields
                  (map (:column-id->column query))
                  (map :alias)
                  (interpose ", ")
                  (apply str))]
