anchor.diff:                  Async.Start (DB.createChatHistory user DB.ChatHistoryType.PrivateChat (Some ("You: " + message, false)))
               
               | _ -> ()
  -
       let processor = new MailboxProcessor<ChannelEvent>(fun inbox ->
           let rec loop () = async {
               let! event = inbox.Receive()
  
positive.code:         this.NavigationItem.Title <- user.Label
          this.WebView.LoadRequest(new NSUrlRequest(new NSUrl(Api.baseUrl + "/mobile/privateChat")))
          this.WebView.LoadFinished.Add(fun _ ->
              this.WebView.SetBodyBackgroundColor (colorToCss Utility.grayLightAccent)
              Async.startWithContinuation
                  (PrivateChat.session user.Id)
                  (function
  
negative.code: 
                      | error -> this.HandleApiFailure error
                  )
          )
              
  
      override this.ViewDidDisappear (animated) =
  