mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 10:11:27 +01:00
Christian Lindig
f99941871a
This commit cleans up code to reduce compiler warnings: * remove unused open statements (warning 33) * remove unused 'rec' declarations (warnign 39) * remove unused type declarations (warning 34) * mark unused variables with an underscore (warning 27) * mark unused value declarations with an underscore (warning 32) This commit does not include changes to fix compiler warnings 52 (matching against strings in exceptions). These changes have no impact on functionality. Signed-off-by: Christian Lindig <christian.lindig@citrix.com> Acked-by: Wei Liu <wei.liu2@citrix.com>
10 lines
186 B
OCaml
10 lines
186 B
OCaml
open Printf
|
|
|
|
let _ =
|
|
try
|
|
Xenlight.test_raise_exception ()
|
|
with Xenlight.Error(err, fn) -> begin
|
|
printf "Caught Exception: %s: %s\n" (Xenlight.string_of_error err) fn;
|
|
end
|
|
|