Skip to content
Snippets Groups Projects
Commit 3c60b944 authored by Cam Saul's avatar Cam Saul
Browse files

test fix

parent 145750f5
No related branches found
No related tags found
No related merge requests found
......@@ -28,7 +28,8 @@
(defn order-columns
"Return a sequence of column names in the order we should return results from the QP."
[{{source-table :source_table breakout-field-ids :breakout} :query} field-names]
(let [breakout-field-id->name (sel :many :id->field [Field :name] :table_id source-table :id [in (set breakout-field-ids)])
(let [breakout-field-ids (filter identity breakout-field-ids)
breakout-field-id->name (sel :many :id->field [Field :name] :table_id source-table :id [in (set breakout-field-ids)])
breakout-fields (map breakout-field-id->name breakout-field-ids)]
(concat breakout-fields (filter #(not (contains? (set breakout-fields)
(uncastify (name %))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment