summaryrefslogtreecommitdiff
path: root/smsmatrix.scm
diff options
context:
space:
mode:
Diffstat (limited to 'smsmatrix.scm')
-rw-r--r--smsmatrix.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/smsmatrix.scm b/smsmatrix.scm
index 5fece6f..76333dc 100644
--- a/smsmatrix.scm
+++ b/smsmatrix.scm
@@ -246,6 +246,9 @@
username password group tts-fallback (error-on-failure #t))
(let-auth 'send-sms username password
(let* ((recipient-type (if group 'group 'phone))
+ (recipients (if (string? recipients)
+ recipients
+ (string-intersperse recipients ",")))
(res (api-request 'send-sms sms-uri `((username . ,username)
(password . ,password)
(,recipient-type . ,recipients)