Use new json module included in Erlang/OTP 27.0-rc2 when available

rebar.config

@@ -19,9 +19,12 @@
 {erl_opts, [debug_info,
 	    {src_dirs, ["src"]},
 	    {i, "include"},
+	    {if_version_below, "27", {d, 'OTP_BELOW_27'}},
 	    {platform_define, "^(R|1|20)", deprecated_stacktrace}]}.
 
-{deps, [{jiffy, "~> 1.1.1", {git, "https://github.com/davisp/jiffy.git", {tag, "1.1.1"}}},
+{deps, [{if_version_below, "27",
+	  {jiffy, "~> 1.1.1", {git, "https://github.com/davisp/jiffy.git", {tag, "1.1.1"}}}
+	},
 	{yconf, "~> 1.0.15", {git, "https://github.com/processone/yconf.git", {tag, "1.0.15"}}},
 	{idna, "~> 6.0", {git, "https://github.com/benoitc/erlang-idna", {tag, "6.0.0"}}},
 	{base64url, "~> 1.0", {git, "https://github.com/dvv/base64url", {tag, "1.0.1"}}},

src/p1_acme.app.src

@@ -22,7 +22,7 @@
   {registered,   []},
   {applications, [kernel, stdlib,
                   crypto, inets, public_key, ssl,
-                  base64url, idna, jiffy, jose, yconf]},
+                  base64url, idna, jose, yconf]},
   {env,          []},
   {mod,          {p1_acme, []}},
 

src/p1_acme.erl

@@ -681,7 +681,7 @@ handle_http_response(ReqFun, {{_, Code, Slogan}, Hdrs, Body}, State, RetryTimeou
 	{_, Type} when Type == "application/problem+json";
 		       Type == "application/json" ->
 	    State1 = update_nonce(Hdrs, State),
-	    try jiffy:decode(Body, [return_maps]) of
+	    try json_decode(Body) of
 		JSON when Type == "application/json" ->
 		    {ok, {Code, Hdrs, JSON}, State1};
 		JSON when Type == "application/problem+json" ->
@@ -913,7 +913,7 @@ jose_json(#state{account = {Key, AccURL}, nonce = Nonce} = State, Data, URL) ->
     JwsMap = case AccURL of
 		 undefined ->
 		     {_, BinaryPubKey} = jose_jwk:to_binary(PubKey),
-		     PubKeyJson = jiffy:decode(BinaryPubKey),
+		     PubKeyJson = json_decode(BinaryPubKey),
 		     JwsMap0#{<<"jwk">> => PubKeyJson};
 		 _ ->
 		     JwsMap0#{<<"kid">> => iolist_to_binary(AccURL)}
@@ -930,7 +930,19 @@ auth_key(#state{account = {PrivKey, _}}, Token) ->
 
 -spec encode_json(map()) -> binary().
 encode_json(JSON) ->
-    iolist_to_binary(jiffy:encode(JSON)).
+    json_encode(JSON).
+
+-ifdef(OTP_BELOW_27).
+json_encode(Term) ->
+    iolist_to_binary(jiffy:encode(Term)).
+json_decode(Bin) ->
+    jiffy:decode(Bin).
+-else.
+json_encode(Term) ->
+    iolist_to_binary(json:encode(Term)).
+json_decode(Bin) ->
+    json:decode(Bin).
+-endif.
 
 %%%===================================================================
 %%% Misc