18 lines
484 B
Racket
18 lines
484 B
Racket
#lang typed/racket/base
|
|
|
|
(require/typed "log-untyped.rkt"
|
|
[matrix-root-logger Logger])
|
|
|
|
;; WARNING: duplicated in log-untyped.rkt
|
|
(define-syntax matrix-log
|
|
(syntax-rules ()
|
|
[(_ level-exp message)
|
|
(let ((level level-exp))
|
|
(when (log-level? matrix-root-logger level)
|
|
(log-message matrix-root-logger level message #f)))]
|
|
[(_ level format-string exp ...)
|
|
(matrix-log level (format format-string exp ...))]))
|
|
|
|
(provide matrix-root-logger
|
|
matrix-log)
|