Commit 67d59df9 authored by Sigbjørn Revheim's avatar Sigbjørn Revheim
Browse files

Added missing FunctionArgument type

parent fc9c8bb0
Pipeline #23490 failed with stages
in 1 minute and 11 seconds
......@@ -68,7 +68,8 @@
:Function funcname
:IsSdtlName true
:Arguments (map-indexed
(fn [i arg] {:ArgumentName (str "EXP" (inc i))
(fn [i arg] {"$type" "FunctionArgument"
:ArgumentName (str "EXP" (inc i))
:ArgumentValue arg})
args
)}
......
......@@ -37,11 +37,9 @@
(let [canonical (get function-mapping (first args))]
{"$type" "FunctionCallExpression"
:Function (or canonical (first args))
:IsSdtlName (some? canonical)
:Arguments (map-indexed
(fn [i arg] {:ArgumentName (str "EXP" (inc i))
(fn [i arg] {"$type" "FunctionArgument"
:ArgumentName (str "EXP" (inc i))
:ArgumentValue arg})
(rest args)
)
:IsSdtlName (some? canonical)}
)
)
\ No newline at end of file
(rest args))}))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment