anchor.diff:                              SqlTitle = get_sql_title(FirstPt),
                               FlatTuple = {<<"flat">>, iolist_to_binary([[Flat, ";\n"] || Flat <- FlatList])}, %% Add ;\n after each statement.
                               FlatListTuple = {<<"flat_list">>, FlatList},
  -                            PrettyTuple = get_pretty_tuple_multiple(PtList),
  +                            PrettyTuple = get_pretty_tuple_multiple(PtList, Adapter),
                               ParseStmt = jsx:encode([{<<"parse_stmt">>,
                                   case SqlTitle of
                                       <<>> ->
  
positive.code:         true ->
              case sqlparse:parsetree(Sql) of
                  {ok, ParseTrees} ->
                      case ptlist_to_string(ParseTrees) of
                          {error, Reason} ->
                              ?Error("parse_stmt error in fold ~p~n", [Reason]),
                              ReasonBin = iolist_to_binary(io_lib:format("Error parsing the sql: ~p", [Reason])),
  
negative.code:             {<<"prettyerror">>, iolist_to_binary(io_lib:format("~p:~p", [Class1, Error1]))}
      end.
  
  -spec get_pretty_tuple_multiple(list(), oci | imem) -> {binary(), binary()}.
  get_pretty_tuple_multiple(ParseTrees, Adapter) ->
      get_pretty_tuple_multiple(ParseTrees, [], Adapter).
  
  -spec get_pretty_tuple_multiple(list(), list(), oci | imem) -> {binary(), binary()}.
  get_pretty_tuple_multiple([], Result, _Adapter) ->
      %% Same as the flat we add ; and new line after each statement.
      {<<"pretty">>, iolist_to_binary([[Pretty, ";\n"] || Pretty <- lists:reverse(Result)])};
  get_pretty_tuple_multiple([ParseTree | Rest], Result, Adapter) ->
      case get_pretty_tuple(ParseTree, Adapter) of
          {<<"prettyerror">>, _} = Error -> Error;
          {<<"pretty">>, Pretty} -> get_pretty_tuple_multiple(Rest, [Pretty | Result])
      end.
  