From 0a2aad6e928796e1fdb99120a768daa0ce7601a2 Mon Sep 17 00:00:00 2001
From: tilpner
Date: Sun, 12 Aug 2018 21:10:04 +0200
Subject: Log errors to logger, not stdout

---
 irc/core.rkt | 4 ++--
 1 file 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)
-- 
cgit v1.2.3