anchor.diff:  let azureTable (sink: WindowsAzureTableSink) =
       AzureTableSink.translateToInProc >> sink.OnNext
   
  +let private debug printDebug s = if printDebug then printfn s
  +
   // Return a function that, when run, will repeatedly try connect
   // (at 1 attempt/second) to a SignalR server.
   let connectWithRetry (printDebug: bool) =
  
positive.code:     fun (connection: Connection) ->
          async {
              if !firstTime then
                  if printDebug then printfn ">>> Connecting for the first time"
                  // The connection _should_ handle reconnections, so we only need to kick things off once.
                  firstTime := false
                  let running = ref false
  
negative.code:         async {
              do! connect(connection)
  
              debug printDebug ">>> Sending event"
              try
                  do! hub.Invoke("event", serialisedEvent) |> awaitTask
              with
  