anchor.diff:                            []).
   
   send_line(Con, Line) ->
  -    gen_server:call(Con, {line, Line}).
  +    gen_server:cast(Con, {send_line, Line}).
   
   send_cmd(Con, Cmd = #irc_cmd{}) ->
  -    gen_server:cast(Con, {send_cmd, Cmd}).
  +    Line = irc_messages:to_list(Cmd),
  +    send_line(Con, Line).
   
   close(Con) ->
       gen_server:call(Con, close).
  
positive.code: %%                                      {stop, Reason, State}
  %% Description: Handling cast messages
  %%--------------------------------------------------------------------
  handle_cast({send_cmd, Cmd}, State = #state{sock=Sock}) ->
      Line = irc_messages:to_list(Cmd),
      case gen_tcp:send(Sock, Line) of
          ok -> {noreply, State};
          {error, Reason} -> 
  
negative.code:     inet:setopts(Socket, [{active, true}]),
      o_send(State, connected),
      {reply, ok, State#state{sock=Socket}};
  handle_call({send_line, Line}, _From, State = #state{sock=Sock}) ->
      case gen_tcp:send(Sock, Line) of
          ok -> {reply, ok, State};
          {error, Reason} -> 
  