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

fixes

parent b6640477
Branches
Tags
No related merge requests found
......@@ -216,11 +216,14 @@
(symbol? arg-symb)]}
`[~arg-symb ~((eval 'metabase.api.common/arg-annotation-fn) annotation-kw arg-symb)])
(defn process-arg-annotations [annotations]
{:pre [(or (nil? annotations)
(map? annotations))]}
(some->> annotations
(defn process-arg-annotations [annotations-map]
{:pre [(or (nil? annotations-map)
(map? annotations-map))]}
(some->> annotations-map
(mapcat (fn [[arg annotations]]
{:pre [(symbol? arg)
(or (symbol? annotations)
(every? symbol? annotations))]}
(if (sequential? annotations) (->> annotations
(map keyword)
(map (u/rpartial vector arg)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment