12 lines
316 B
Clojure
12 lines
316 B
Clojure
(ns babashka.profile
|
|
(:require [babashka.main :as main]))
|
|
|
|
(comment)
|
|
|
|
;; clojure -A:profile -e "(prn (loop [val 0 cnt 1000000] (if (pos? cnt) (recur (inc val) (dec cnt)) val)))"
|
|
|
|
(require '[clj-async-profiler.core :as prof])
|
|
|
|
(defn -main [& options]
|
|
(prof/profile (apply main/main options))
|
|
(shutdown-agents))
|