anchor.diff:          true ->
               case sqlparse:parsetree(Sql) of
                   {ok, ParseTrees} ->
  -                    case ptlist_to_string(ParseTrees) of
  +                    case ptlist_to_string(ParseTrees, format_options(Adapter)) 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])),
  
positive.code:             {<<"prettyerror">>, iolist_to_binary(io_lib:format("~p:~p", [Class1, Error1]))}
      end.
  
  -spec get_pretty_tuple_multiple(list()) -> {binary(), binary()}.
  get_pretty_tuple_multiple(ParseTrees) ->
      get_pretty_tuple_multiple(ParseTrees, []).
  
  -spec get_pretty_tuple_multiple(list(), list()) -> {binary(), binary()}.
  get_pretty_tuple_multiple([], Result) ->
      %% 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) ->
      case get_pretty_tuple(ParseTree) of
          {<<"prettyerror">>, _} = Error -> Error;
          {<<"pretty">>, Pretty} -> get_pretty_tuple_multiple(Rest, [Pretty | Result])
      end.
  
negative.code:                             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, Adapter),
                              ParseStmt = jsx:encode([{<<"parse_stmt">>,
                                  case SqlTitle of
                                      <<>> ->
  