anchor.diff:    {ok, AccessToken} = maps:find(<<"access_token">>, TokenMap),
     AccessedPath = list_to_binary(binary_to_list(Path) ++ "?access_token=" ++ binary_to_list(AccessToken)),
     request(AccessedPath, Method, Headers, Body).
  -
  -
  -
  -
  -
  -
  
positive.code: get_stream(State) ->
    D = accessed_request(?EVENTS, "GET", [], [], State),
    {ok, {_, _, Body, _ , _}} = D,
    case Body of
      <<":ok\n\n\n">> ->
        ok;
      _ ->
        get_response_body_raw(D)
    end.
  
  %% internals: encoding x-www-form-urlencoded type
  url_encode(Data) ->
  
negative.code: get_response_body_raw(Response) ->
    {ok, {_, _, Body, _ , _}} = Response,
    BodyList = binary_to_list(Body),
    Stripped = re:replace(BodyList, "\\s+", "", [global,{return,list}]),
    Start = string:str(Stripped, "{\"data\":"),
    case Start of
      0 -> {error, no_json, BodyList};
      _ ->
        Bin = list_to_binary(string:sub_string(Stripped, Start)),
        tr_json:decode(Bin)
    end.
  
  