From a65e9185fb8d4b20c41b612e4c461db60ab393f2 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 4 Aug 2016 09:25:55 +0100 Subject: [PATCH] mllib: _exit should return 'a Fixes commit 0dfa96c043cee4ce82c0a45c3ad09b0a61798b79. (cherry picked from commit 9fc0418db541065841af53632ae2406efc968416) --- mllib/exit.ml | 2 +- mllib/exit.mli | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/mllib/exit.ml b/mllib/exit.ml index e752bfe..4ca8a27 100644 --- a/mllib/exit.ml +++ b/mllib/exit.ml @@ -16,4 +16,4 @@ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *) -external _exit : int -> unit = "guestfs_int_mllib_exit" "noalloc" +external _exit : int -> 'a = "guestfs_int_mllib_exit" "noalloc" diff --git a/mllib/exit.mli b/mllib/exit.mli index c1f0ab5..ddf3072 100644 --- a/mllib/exit.mli +++ b/mllib/exit.mli @@ -16,5 +16,5 @@ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *) -val _exit : int -> unit +val _exit : int -> 'a (** Call _exit directly, ie. do not run OCaml atexit handlers. *) -- 1.8.3.1