logging and rhrowing exceptions

loggingandthrowing.fs

let logResultOfSending (logger: IEventIDLog) (receiverNumber : string) (body : string) (status : SmsStatus) =
    match status with 
      | Response result -> 
        let logg = logresponse receiverNumber body result
        match result with 
            | Success -> logg SmsSent.EventId logger.Info
            | Fail -> logg SmsError.EventId logger.Error
      | Error ex ->
        logger.Error(SmsError.EventId, "error sending sms", ex)
    status

// NServiceBus handles recovery from failure based on the app throwing exceptions
let throwExceptionsWhenMessagesAreNotSent(status : SmsStatus) = 
  match status with
  | Response result -> 
    match result with
      | Success -> ()
      | Fail -> 
        raise (SmsException("delivery failed", result))
  | Error e ->
    raise e