chat.rkt

@@ -62,6 +62,7 @@
                       (match type
                         ['chat (on-chat from (unheck-html message))]
                         ['response (on-response (unheck-all-html message))]
+                        ['command-error (on-response (unheck-all-html message))]
                         [_
                          (log-warning
                           (format "chat.rkt/handl-evt: cannot handle message type in ~s" msg))])]))]

private/irc-functions.rkt

@@ -56,10 +56,17 @@
                          (U irc-message False EOF)))
 (define (read-from-client conn #:timeout [timeout #f])
   (define in-port (irc-connection-in conn))
-  (if (and timeout (not (sync/timeout timeout in-port)))
+  (: rl-evt (Evtof (U EOF String)))
+  (define rl-evt (read-line-evt in-port 'any))
+  (: line (U False EOF String))
+  (define line (if timeout
+                   (sync/timeout timeout rl-evt)
+                   (sync rl-evt)))
+  (if (string? line)
+      (parse-message line)
       ;; if the timeout was triggered
       eof   ;; return eof so that the caller closes teh connection
-      (read-from-input-port in-port)))
+      ))
 
 
 ;; Given the string of an IRC message, returns an irc-message that has been parsed as far as possible,