fix: update argument order for extism_log_callback

extism · Nov 14, 2023 · 46a4f6b · 46a4f6b
1 parent aebdb49
commit 46a4f6b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/bindings.ml b/src/bindings.ml
@@ -130,12 +130,12 @@ let log_callback =
   Foreign.dynamic_funptr ~runtime_lock:true
     Ctypes.(ptr char @-> uintptr_t @-> returning void)
 
-let extism_log_callback name f =
+let extism_log_callback f level =
   let (module Callback) = log_callback in
   let cb = Callback.of_fun f in
   fn "extism_log_callback"
-    (string_opt @-> Callback.t @-> returning bool)
-    name cb
+    (Callback.t @-> string_opt @-> returning bool)
+    cb level
 
 let extism_version = fn "extism_version" (void @-> returning string)
 let extism_plugin_free = fn "extism_plugin_free" (plugin @-> returning void)

diff --git a/src/extism.ml b/src/extism.ml
@@ -48,7 +48,7 @@ let set_log_callback ?level f =
   let fx s length =
     f @@ Ctypes.string_from_ptr s ~length:(Ctypes.Uintptr.to_int length)
   in
-  Bindings.extism_log_callback (parse_level level) fx
+  Bindings.extism_log_callback fx (parse_level level)
 
 let%test _ =
   let log_file =