anchor.diff:  			$\r, $\n,
   			PatchBody],
   	ok = ssl:send(SslSock, list_to_binary(PatchReq)),
  -	Timeout = 3000,
  +	Timeout = 1500,
   	F = fun(_F, _Sock, {error, timeout}, Acc) ->
   					lists:reverse(Acc);
   			(F, Sock, {ok, Bin}, Acc) ->
  
positive.code: 			$\r,$\n,
  			PatchBody],
  	ok = ssl:send(SslSock, list_to_binary(PatchReq)),
  	Timeout = 3000,
  	F = fun(_F, _Sock, {error, timeout}, Acc) ->
  					lists:reverse(Acc);
  			(F, Sock, {ok, Bin}, Acc) ->
  
negative.code: 			$\r, $\n,
  			PatchBody],
  	ok = ssl:send(SslSock, list_to_binary(PatchReq)),
  	Timeout = 1500,
  	F = fun(_F, _Sock, {error, timeout}, Acc) ->
  					lists:reverse(Acc);
  			(F, Sock, {ok, Bin}, Acc) ->
  