diff --git a/src/sqlite3_lib.erl b/src/sqlite3_lib.erl index d77ad9f..20ef8f0 100644 --- a/src/sqlite3_lib.erl +++ b/src/sqlite3_lib.erl @@ -77,16 +77,11 @@ write_col_sql(Cols) -> %% @end %%-------------------------------------------------------------------- -spec (replace/1::(string ()) -> string ()). -replace ([34 | T]) -> - replace (T, ["'"]); -replace ([H | T]) -> - replace (T, [binary_to_list (<>)]). -replace ([], L) -> - lists:flatten (lists:reverse (L)); -replace ([34 | T], L) -> - replace (T, ["'" | L]); -replace ([H | T], L) -> - replace (T, [binary_to_list (<>) | L]). +replace([]) -> []; +replace([$" | T]) -> + [$' | replace(T)]; +replace([H | T]) -> + [H | replace(T)]. %%-------------------------------------------------------------------- %% @spec update_set_sql ([{Col, Value}]) -> string ()