anchor.diff:  | HubName of HubNameMessage
   | ChatMessage of ChatMessageMessage
   | MyInfo of MyInfoMessage
  +| Ignore_
   
   type DcppSendMessage = 
   | ValidateNick of ValidateNickMessage
  
positive.code:                 nick = nick
                  message = message
              }
          | _ -> 
              return! Failure "Couldn't parse"
      }
  
negative.code:             | OpList msg ->
                  agent.post <| OpListed msg.nicks
                  nick
              | Ignore_ ->
                  nick
          ) nick_data
          |> Observable.subscribeWithCompletion ignore (fun () -> 
              log.Warn "Disconnected"
  