anchor.diff:  -spec maybe_create_session(string(), pos_integer()) -> {ok,string()} | {error, string()}.
   maybe_create_session(Who, N) when N > 0 ->
       case create_session(Who, autocluster_config:get(consul_svc_ttl)) of
  -        {error, "500"} -> 
  +        {error, "500"} ->
   	    autocluster_log:warning("Error 500 while creating a Consul session, " ++
   					" ~p retries left", [N]),
   	    timer:sleep(2000),
  
positive.code: register() ->
    case registration_body() of
      {ok, Body} ->
        case autocluster_httpc:post(autocluster_config:get(consul_scheme),
                                    autocluster_config:get(consul_host),
                                    autocluster_config:get(consul_port),
                                    [v1, agent, service, register],
  
negative.code: -spec unregister() -> ok | {error, Reason :: string()}.
  unregister() ->
    Service = service_id(),
    case autocluster_httpc:put(autocluster_config:get(consul_scheme),
                               autocluster_config:get(consul_host),
                               autocluster_config:get(consul_port),
                               [v1, agent, service, deregister, Service],
  