summaryrefslogtreecommitdiff
path: root/database
diff options
context:
space:
mode:
Diffstat (limited to 'database')
-rw-r--r--database/run.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/database/run.lisp b/database/run.lisp
index a72f52e..739dc96 100644
--- a/database/run.lisp
+++ b/database/run.lisp
@@ -22,7 +22,7 @@
(let ((start (ignore-errors (run-split-start-time run-split)))
(end (or (ignore-errors (run-split-end-time run-split)) (local-time:now))))
(if start
- (floor (* 1000 (local-time:timestamp-difference end start))))))
+ (floor (* 100 (local-time:timestamp-difference end start))))))
(defun format-elapsed-time (run-split)
(let ((elapsed (run-split-elapsed-time run-split)))