2017-08-10 19:17:28 +00:00
|
|
|
#lang syndicate
|
2017-07-30 22:50:45 +00:00
|
|
|
|
|
|
|
(require/activate syndicate/reload)
|
|
|
|
(require/activate syndicate/supervise)
|
|
|
|
(require/activate syndicate/drivers/config)
|
|
|
|
|
|
|
|
(require "protocol.rkt")
|
|
|
|
|
|
|
|
(spawn #:name 'config
|
|
|
|
(stop-when-reloaded)
|
|
|
|
|
|
|
|
(assert (ircd-motd (list "Hello, world!")))
|
|
|
|
|
|
|
|
(assert (ircd-listener 6667)))
|