diff options
| -rw-r--r-- | smsmatrix.scm | 3 |
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) |