3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-13 21:07:18 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add improved approach for async flow time measurements

Browse source
This commit is contained in:
Andrey Antukh 2022-08-30 20:18:27 +02:00
parent fd973d87fd
commit 2f21560fe3
2 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
backend/src/app/redis.clj
View file

@ -283,14 +283,14 @@
(p/rejected cause)))) (p/rejected cause))))
(eval-script [sha] (eval-script [sha]
(let [start-ts (System/nanoTime)] (let [tpoint (dt/tpoint)]
(-> (.evalsha ^RedisScriptingAsyncCommands cmd (-> (.evalsha ^RedisScriptingAsyncCommands cmd
^String sha ^String sha
^ScriptOutputType ScriptOutputType/MULTI ^ScriptOutputType ScriptOutputType/MULTI
^"[Ljava.lang.String;" keys ^"[Ljava.lang.String;" keys
^"[Ljava.lang.String;" vals) ^"[Ljava.lang.String;" vals)
(p/then (fn [result] (p/then (fn [result]
(let [elapsed (dt/duration {:nanos (- (System/nanoTime) start-ts)})] (let [elapsed (tpoint)]
(mtx/run! metrics {:id :redis-eval-timing (mtx/run! metrics {:id :redis-eval-timing
:labels [(name sname)] :labels [(name sname)]
:val (inst-ms elapsed)}) :val (inst-ms elapsed)})

10
backend/src/app/util/time.clj
View file

@ -325,3 +325,13 @@
CronExpression CronExpression
(-edn [o] (pr-str o))) (-edn [o] (pr-str o)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Measurement Helpers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn tpoint
"Create a measurement checkpoint for time measurement of potentially
asynchronous flow."
[]
(let [p1 (System/nanoTime)]
#(duration {:nanos (- (System/nanoTime) p1)})))