From: David Scott Date: Mon, 21 Dec 2009 15:36:49 +0000 (+0000) Subject: CA-33440: remove some more unused functions from forkhelpers X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=1708e6da7bd4e64b9271e6f08b9bb270bffe8ad9;p=xcp%2Fxen-api-libs.git CA-33440: remove some more unused functions from forkhelpers Signed-off-by: David Scott --- diff --git a/stdext/forkhelpers.ml b/stdext/forkhelpers.ml index f69a461..e5e8d32 100644 --- a/stdext/forkhelpers.ml +++ b/stdext/forkhelpers.ml @@ -83,10 +83,6 @@ let with_logfile_fd ?(delete = true) prefix f = Failure(read_logfile(), e) -let with_dev_null f = Unixext.with_file "/dev/null" [ Unix.O_WRONLY ] 0o0 f -let with_dev_null_read f = Unixext.with_file "/dev/null" [ Unix.O_RDONLY ] 0o0 f - - exception Spawn_internal_error of string * string * Unix.process_status let id = ref 0 diff --git a/stdext/forkhelpers.mli b/stdext/forkhelpers.mli index 9cc4d61..7bbb86c 100644 --- a/stdext/forkhelpers.mli +++ b/stdext/forkhelpers.mli @@ -52,5 +52,3 @@ val waitpid_nohang : pidty -> (int * Unix.process_status) val dontwaitpid : pidty -> unit val waitpid_fail_if_bad_exit : pidty -> unit val getpid : pidty -> int - -val with_dev_null : (Unix.file_descr -> 'a) -> 'a