diff options
| author | tilpner | 2018-08-12 21:10:04 +0200 |
|---|---|---|
| committer | tilpner | 2018-08-12 21:10:04 +0200 |
| commit | 0a2aad6e928796e1fdb99120a768daa0ce7601a2 (patch) | |
| tree | cb662c705be46451e800e59ed738795ca317a5d7 | |
| parent | cf45a5bb476f45e781f371251639707c587f4248 (diff) | |
| download | meep-0a2aad6e928796e1fdb99120a768daa0ce7601a2.tar.gz meep-0a2aad6e928796e1fdb99120a768daa0ce7601a2.tar.xz meep-0a2aad6e928796e1fdb99120a768daa0ce7601a2.zip | |
Log errors to logger, not stdout
| -rw-r--r-- | irc/core.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/irc/core.rkt b/irc/core.rkt index 342cb78..bbe6905 100644 --- a/irc/core.rkt +++ b/irc/core.rkt @@ -1,6 +1,6 @@ #lang racket/base (require (for-syntax racket/provide) racket/provide - racket/string racket/list + racket/string racket/format racket/list racket/function racket/promise racket/exn racket/tcp openssl (only-in srfi/13 string-index string-index-right)) @@ -17,7 +17,7 @@ (define current-message (make-parameter #f)) (define current-hook-fail-handler - (make-parameter (λ (x) (displayln (exn->string x))))) + (make-parameter (λ (x) (log-irc-error (exn->string x))))) (struct connection (input output hooks output-lock storage) |