anchor.diff:  
       member this.HandleChannelEvent = processor.Post
   
  +    member this.Join () = join ()
  +    member this.Leave () = leave()
       member this.Room:Entity = room
   
   module ChatRooms =
  
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:                 let alert = new UIAlertView (Title = "Room Deleted", Message = "This room no longer exists.")
                  alert.AddButton "Leave" |> ignore
                  alert.Show ()
                  alert.Clicked.Add(fun _ -> leave())
              | error -> controller.HandleApiFailure error)
  
  
  