smsservice.fs

smsservice.fs

namespace FDK.SmsSender
open PSWinCom.Gateway.Client;
open SmsTypes;

type ISmsService = abstract member SendSms: FdkSms -> SmsStatus 
type Sender = string
type SmsService(sender: Sender, client: IGatewayClient) = 
    interface ISmsService with
        member this.SendSms fdkSms= 
            let receiverNumber, body = fdkSms 
            let sms = new Sms(ReceiverNumber = receiverNumber, SenderNumber = sender, Text = body );
            let messages:list<Message> = [sms]
            try 
                let response = client.Send(Seq.toList messages)
                // We only send one SMS so we only care about the first result 
                let result = List.head (List.ofSeq response.Results)
                Response result
             with 
                | ex -> Error ex