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 endDate = midnight ()
          let startDate = endDate.AddDays -7.
          let protocol = if String.contains "localhost" apiDomain then "http" else "https"
          let url = 
              sprintf "%s://%s/api/v1/orders/tally/sources?since=%i&until=%i" 
                  protocol 
                  apiDomain 
                  (startDate |> toJsTimestamp)
                  (endDate |> toJsTimestamp)
  
  
negative.code: module SciTallyTool
  
      open System
      open System.Collections.Generic
      open Microsoft.Azure.WebJobs
      open Microsoft.Azure.WebJobs.Host
      open Newtonsoft.Json
      open HttpFs.Client
      open Hopac
  