Move lookup-nick into protocol.rkt
This commit is contained in:
parent
0e28e4c572
commit
8de523d8ee
|
@ -5,9 +5,6 @@
|
||||||
|
|
||||||
(require/activate syndicate/reload)
|
(require/activate syndicate/reload)
|
||||||
|
|
||||||
(define (lookup-nick conn)
|
|
||||||
(immediate-query [query-value #f (ircd-connection-info conn $N _) N]))
|
|
||||||
|
|
||||||
(spawn #:name 'channel-factory
|
(spawn #:name 'channel-factory
|
||||||
(stop-when-reloaded)
|
(stop-when-reloaded)
|
||||||
(during/spawn (ircd-channel-member $Ch _)
|
(during/spawn (ircd-channel-member $Ch _)
|
||||||
|
|
|
@ -8,7 +8,9 @@
|
||||||
(struct-out ircd-channel-topic)
|
(struct-out ircd-channel-topic)
|
||||||
|
|
||||||
(struct-out ircd-action)
|
(struct-out ircd-action)
|
||||||
(struct-out ircd-event))
|
(struct-out ircd-event)
|
||||||
|
|
||||||
|
lookup-nick)
|
||||||
|
|
||||||
;; A Connection is a TcpAddress
|
;; A Connection is a TcpAddress
|
||||||
|
|
||||||
|
@ -21,3 +23,8 @@
|
||||||
|
|
||||||
(struct ircd-action (conn message) #:prefab) ;; message
|
(struct ircd-action (conn message) #:prefab) ;; message
|
||||||
(struct ircd-event (conn message) #:prefab) ;; message
|
(struct ircd-event (conn message) #:prefab) ;; message
|
||||||
|
|
||||||
|
;;---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
(define (lookup-nick conn)
|
||||||
|
(immediate-query [query-value #f (ircd-connection-info conn $N _) N]))
|
||||||
|
|
Loading…
Reference in New Issue