7 lines
198 B
Racket
7 lines
198 B
Racket
#lang racket
|
|
(define (notify! fmt . args)
|
|
(log-info (format "[~a] ~a" (current-seconds) (apply format fmt args))))
|
|
|
|
(provide/contract
|
|
[notify! ((string?) () #:rest (listof any/c) . ->* . void)])
|