utils.ml
gobject-introspection
gobject-introspection.bindings
1 2 3 4 5 let unexpected_value_for (enum : string) : (int64 -> 'a)= (fun x -> let value = " - Unexpexted value " ^ Int64.to_string x in let message = enum ^ value in failwith message)
1 2 3 4 5
let unexpected_value_for (enum : string) : (int64 -> 'a)= (fun x -> let value = " - Unexpexted value " ^ Int64.to_string x in let message = enum ^ value in failwith message)