(* Override the trim function with another which also remove the retchar *)

let f : Sqlite3.Data.t -> Sqlite3.Data.t =
 fun data ->
  match data with
  | Sqlite3.Data.TEXT content -> Sqlite3.Data.TEXT (String.trim content)
  | _ -> data

let register : Sqlite3.db -> unit = fun db -> Sqlite3.create_fun1 db "trim" f