anchor.diff:              |> JsonConvert.DeserializeObject<Tally>
   
           match summaryResponse.Count with
  -        | 0 -> 
  -            printfn "Tally response contained an empty summary. Was the `since` parameter (%i) incorrect?" 
  +        | 0 ->
  +            printfn "Tally response contained an empty summary. Was the `since` parameter (%i) incorrect?"
                   (startDate |> toJsTimestamp)
  -        | _ -> 
  +        | _ ->
               summaryResponse
               |> Seq.iter (fun kvp -> printfn "%s: %i portraits" kvp.Key kvp.Value)
   
           let emailResponse =
  -            try 
  +            try
                   summaryResponse
                   |> Seq.map (fun kvp -> { source = kvp.Key; count = kvp.Value })
                   |> List.ofSeq
                   |> sendEmailMessage startDate
                   |> run
  -            with 
  -            | e -> 
  +            with
  +            | e ->
                   log.Error("API call to SendWithUs failed.", e)
                   reraise ()
   
  
positive.code:         let swuTemplateId = envVarRequired "SCI_TALLY_SWU_TEMPLATE_ID"
          let formatEmail name = sprintf "%s@%s" name emailDomain
  
          let emailRecipient: SwuRecipient = 
              if isLive then { name = "Mike"; address = formatEmail "mikef" }
              else { name = "Joshua Harms"; address = formatEmail "josh" }
          let emailCcs: SwuRecipient list =
              if isLive then 
                  [
                      {
                          name = "Tim"
                          address = formatEmail "tim"
                      }
                      {
                          name = "Joshua Harms"
                          address = formatEmail "josh"
                      }
                      {
                          name = "Leta"
                          address = formatEmail "letaf"
                      }
                  ]
              else []
          let sender = 
              {
                  name = "KMSignalR Superintendent"
                  address = formatEmail "superintendent"
                  replyTo = formatEmail "superintendent" 
              }    
  
          let base64HeaderValue = 
              sprintf "%s:" swuKey 
              |> Text.Encoding.UTF8.GetBytes 
              |> Convert.ToBase64String
          let header = Custom ("Authorization", sprintf "Basic %s" base64HeaderValue) 
          let url = "https://api.sendwithus.com/api/v1/send"
          let message = 
              {
                  template = swuTemplateId
                  recipient = emailRecipient
                  cc = emailCcs
                  sender = sender
                  template_data = 
                      {
                          date = tallyStartDate.ToString ("MMM dd, yyyy")
                          tally = tally
  
negative.code:     let envVarDefault key defaultValue =
          let value = System.Environment.GetEnvironmentVariable key
  
          match value with
          | s when isNull s || s = "" -> defaultValue
          | s -> s
  
      let ifOptionIsSome (opt: 'optionType option) (ifOptionIsSomeFunc: 'optionType -> 'returnType -> 'returnType) (ifOptionIsNoneValue: 'returnType): 'returnType =
          match opt with
          | Some o -> ifOptionIsSomeFunc o ifOptionIsNoneValue
          | None -> ifOptionIsNoneValue
  
      let prepareRequest method url authHeader body =
          let message =
              Request.createUrl method url
              |> ifOptionIsSome body (fun body message ->
                  let serializedBody = JsonConvert.SerializeObject body
                  let contentTypeHeader =
                      ContentType.parse "application/json"
                      |> Option.get
                      |> RequestHeader.ContentType
  
                  message
                  |> Request.bodyString serializedBody
                  |> Request.setHeader contentTypeHeader)
              |> ifOptionIsSome authHeader (fun header message -> message |> Request.setHeader header)
  