summaryrefslogtreecommitdiff
path: root/irc
diff options
context:
space:
mode:
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)