weechat_prefix always return a string

LesBoloss-es · Dec 21, 2020 · dd23f04 · dd23f04
1 parent 757c35b
commit dd23f04
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git a/src/api/bindings_display.c b/src/api/bindings_display.c
@@ -9,13 +9,7 @@
 value caml_weechat_prefix(value prefix) {
   CAMLparam1(prefix);
   CAMLlocal1(res);
-  const char* p = weechat_prefix(String_val(prefix));
-  if (p) {
-    res = caml_alloc(1, 0);
-    Store_field(res, 0, caml_copy_string(p));
-  } else {
-    res = Val_int(0);
-  }
+  res = caml_copy_string(weechat_prefix(String_val(prefix)));
   CAMLreturn(res);
 }
 

diff --git a/src/api/weechat.ml b/src/api/weechat.ml
@@ -2,7 +2,7 @@ type gui_buffer
 
 (** {2 13. Display} *)
 
-external prefix: string -> string option = "caml_weechat_prefix"
+external prefix: string -> string = "caml_weechat_prefix"
 external printf: gui_buffer -> string -> unit = "caml_weechat_printf"
 let printf buffer = Format.kasprintf (printf buffer)