syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Move lookup-nick into protocol.rkt

This commit is contained in:
Tony Garnock-Jones 2017-07-30 19:28:21 -04:00
parent 0e28e4c572
commit 8de523d8ee
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/ircd/channel.rkt
View File

@ -5,9 +5,6 @@
(require/activate syndicate/reload)
(define (lookup-nick conn)
(immediate-query [query-value #f (ircd-connection-info conn $N _) N]))
(spawn #:name 'channel-factory
(stop-when-reloaded)
(during/spawn (ircd-channel-member $Ch _)

9
examples/ircd/protocol.rkt
View File

@ -8,7 +8,9 @@
(struct-out ircd-channel-topic)
(struct-out ircd-action)
(struct-out ircd-event))
(struct-out ircd-event)
lookup-nick)
;; A Connection is a TcpAddress
@ -21,3 +23,8 @@
(struct ircd-action (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]))