method private _index_gui_answer = fun input ->
try
let index = SQL_db.insert_index
~name:input.IGUI.idxgi_name
~columns:input.IGUI.idxgi_columns
~unique:input.IGUI.idxgi_unique
in
(* FIXME: use an another method for this *)
index_model#append_data index
with
| SQL_db.Duplicated_name name ->
raise (Invalid_input "Name already use")
| SQL_db.Invalid_name name ->
raise (Invalid_input "Invalid name");
| SQL_db.Invalid_args s ->
raise (Invalid_input s)