summaryrefslogtreecommitdiff
path: root/irc
diff options
context:
space:
mode:
authortilpner2018-08-12 21:10:04 +0200
committertilpner2018-08-12 21:10:04 +0200
commit0a2aad6e928796e1fdb99120a768daa0ce7601a2 (patch)
treecb662c705be46451e800e59ed738795ca317a5d7 /irc
parentcf45a5bb476f45e781f371251639707c587f4248 (diff)
downloadmeep-0a2aad6e928796e1fdb99120a768daa0ce7601a2.tar.gz
meep-0a2aad6e928796e1fdb99120a768daa0ce7601a2.tar.xz
meep-0a2aad6e928796e1fdb99120a768daa0ce7601a2.zip
Log errors to logger, not stdout
Diffstat (limited to 'irc')
-rw-r--r--irc/core.rkt4
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)