#:use-module (oop goops)
;; Formatting
- #:use-module (sxml simple)
+ #:use-module (mudsync scrubl)
;; used by web server only
#:use-module (sxml simple)
(define* (nm-send-to-client-id nm message #:key client data)
"Send DATA to TO-CLIENT id"
(define formatted-data
- (call-with-output-string
- (lambda (p)
- (sxml->xml data p))))
+ (scrubl-write scrubl-sxml data))
(define client-obj (hash-ref (nm-clients nm) client))
(match client-obj
(#f (throw 'no-such-client