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