anchor.diff:                  | _ -> ()
               ))
   
  -    member val Leave:(string -> unit) = (fun (slug:string) -> ()) with get, set
  +    member val OnLeave:(string -> unit) = (fun (slug:string) -> ()) with get, set
   
       [<Outlet>]
       member val WebView: UIWebView = null with get, set
  
positive.code:                             | Api.ApiOk _ -> starred <- not starred
                              | error -> controller.HandleApiFailure error 
                          )
                  | 1 ->
                      Async.startNetworkWithContinuation
                          (Chat.leave controller.Room.Slug)
                          (fun _ -> 
                              Async.startInBackgroundWithContinuation
                                  (fun _ -> DB.removeChatHistoryById room.Id)
                                  (fun _ ->
                                      controller.Leave room.Id
                                      Navigation.navigate "/home" None
                                  )
                          )
                  | _ -> ()
              )))
  
  
negative.code: 
      member this.HandleChannelEvent = processor.Post
  
      member this.Join () = join ()
      member this.Leave () = leave()
      member this.Room:Entity = room
  
  module ChatRooms =
  