jsoneのデコード失敗時にエラー行番号を取得する

json_error_line.erl

-module(json_error_line).

-export([parse_json/1]).

-spec parse_json(binary()) -> {ok, term()} | {error, Line::integer(), term()}.
parse_json(Json) ->
    case jsone:try_decode(Json) of
        {ok, Value, _} ->
            {ok, Value};
        {error, {badarg, [{_, _, [Rest | _], _} | _]} = Reason} ->
            ConsumedSize = byte_size(Json) - byte_size(Rest),
            <<Bin:ConsumedSize/binary, _/binary>> = Json,
            Line = length(binary:split(Bin, <<"\n">>)),
            {error, Line, Reason};
        {error, Reason} ->
            {error, -1, Reason}
        end.