From a65e9185fb8d4b20c41b612e4c461db60ab393f2 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
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