diff options
| -rw-r--r-- | src/cuirass/logging.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/cuirass/logging.scm b/src/cuirass/logging.scm index 97eb6f7..3982ef2 100644 --- a/src/cuirass/logging.scm +++ b/src/cuirass/logging.scm @@ -84,7 +84,14 @@ (make-parameter #f)) (define (log-query query time) - (format (query-logging-port) "~a ~,2f~%" + (define now + (current-time time-utc)) + + (define date + (date->string (time-utc->date now) "~5")) + + (format (query-logging-port) "~a ~a ~,2f~%" + date (string-join (string-tokenize query (char-set-complement |