anchor.diff:  http_post(URL, Payload, ExpectedStatus, #flow_state{} = State, Attempts) ->
       {ok, Body, State2} = encode(Payload, State),
   
  -    case http_client:post(URL, #{}, Body, [{connection_timeout, ?HTTP_TIMEOUT}]) of
  +    case http_client:post(URL, #{}, Body, ?HTTP_OPTS) of
           {ok, Status, #{<<"Replay-Nonce">> := Nonce} = Headers, ResponseRaw} ->
               Response = try
                   json_utils:decode_map(ResponseRaw)
  
positive.code: http_get(_URL, _State, 0) ->
      ?ERR_LETSENCRYPT(<<"connection">>, "Could not connect to Let's Encrypt.");
  http_get(URL, State, Attempts) ->
      case http_client:get(URL, #{}, <<>>, [{connection_timeout, ?HTTP_TIMEOUT}]) of
          {ok, _Status, #{<<"Replay-Nonce">> := Nonce} = Headers, BodyRaw} ->
              Body = try
                  json_utils:decode_map(BodyRaw)
  
negative.code: -define(GET_RETRIES, 3).
  -define(POST_RETRIES, 4).
  
  -define(HTTP_OPTS,
      [{connect_timeout, timer:seconds(15)}, {recv_timeout, timer:seconds(15)}]).
  
  % Record for the endpoints directory presented by letsencrypt
  -record(directory, {
  