From 5e959d5d741e95656c0eec581cf12ea786086013 Mon Sep 17 00:00:00 2001 From: rekado Date: Thu, 27 Nov 2014 10:15:49 +0100 Subject: xep 0114: wrap expressions in sugar --- xep-0114.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/xep-0114.scm b/xep-0114.scm index f882530..9b94408 100644 --- a/xep-0114.scm +++ b/xep-0114.scm @@ -1,5 +1,6 @@ (define-module (gnubba xep-0114) #:use-module (gnubba sha1) + #:use-module (gnubba sugar) #:use-module (ice-9 rdelim) #:use-module (ice-9 regex) #:use-module (sxml simple) @@ -76,7 +77,7 @@ ;; are evaluated in the xmpp monad. (display "Registering handlers...\n") (begin - exp ...) + (xmpp-> sock exp ...)) ;; Blocking wait for stanzas. At this ;; point, new handler can only be -- cgit v1.2.3