File tree Expand file tree Collapse file tree 1 file changed +3
-14
lines changed Expand file tree Collapse file tree 1 file changed +3
-14
lines changed Original file line number Diff line number Diff line change 476
476
(emitln " throw " throw " ;" )))
477
477
478
478
(def base-types
479
- #{" null" " *"
479
+ #{" null" " *" " ...* "
480
480
" boolean" " Boolean"
481
481
" string" " String"
482
482
" number" " Number"
509
509
t (if optional?
510
510
(subs t 0 (dec (count t)))
511
511
t)
512
- ret (str (:name (ana/resolve-var env (symbol t))))]
512
+ ret (munge ( str (:name (ana/resolve-var env (symbol t) ))))]
513
513
(if optional?
514
514
(str ret " =" )
515
515
ret))))
516
516
517
- (defn type-munge [s]
518
- (cond
519
- (= " null" s) s
520
- (= " *" s) s
521
- :else (munge s)))
522
-
523
517
(defn resolve-types [env ts]
524
518
(let [ts (-> ts string/trim (subs 1 (dec (count ts))))
525
519
xs (string/split ts #"\| " )]
526
- (str
527
- " {"
528
- (->> (map #(resolve-type env %) xs)
529
- (map type-munge)
530
- (string/join " |" ))
531
- " }" )))
520
+ (str " {" (string/join " |" (map #(resolve-type env %) xs)) " }" )))
532
521
533
522
(defn munge-param-return [env line]
534
523
(cond
You can’t perform that action at this time.
0 commit comments