Skip to content

Instantly share code, notes, and snippets.

@bjartwolf

bjartwolf/sendingsms.fs

Created December 15, 2014 18:20
Show Gist options
  • Save bjartwolf/8f95f07d06fc3a139472 to your computer and use it in GitHub Desktop.
Save bjartwolf/8f95f07d06fc3a139472 to your computer and use it in GitHub Desktop.
Download ZIP
sendingsms
Raw
sendingsms.fs
let lang = (new LanguageUtil(logger)).getLanguageAndLogIfUnknown evt
let wrapContentWithPhonenumber x = (evt.PhoneNumber, x) : FdkSms
let smsContent = updatePhoneNumberFormatter evt lang
smsContent |> // Start with the contents of a message
wrapContentWithPhonenumber |>
sms.SendSms |>
logResultOfSending logger evt.PhoneNumber smsContent |>
throwExceptionsWhenMessagesAreNotSent
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment