From 81f2bbd8e7231f514430028978d668363c94fd38 Mon Sep 17 00:00:00 2001 From: Juergen Hoetzel Date: Mon, 10 Nov 2014 20:51:16 +0100 Subject: [PATCH] remove unnecessary wrapping of test functions in anonymous functions --- code/error-handling/exn_cost.ml | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/code/error-handling/exn_cost.ml b/code/error-handling/exn_cost.ml index 4c8ad4b..9ffc616 100644 --- a/code/error-handling/exn_cost.ml +++ b/code/error-handling/exn_cost.ml @@ -16,12 +16,9 @@ let end_with_exn () = with Exit -> () let () = - [ Bench.Test.create ~name:"simple computation" - (fun () -> simple_computation ()); - Bench.Test.create ~name:"simple computation w/handler" - (fun () -> simple_with_handler ()); - Bench.Test.create ~name:"end with exn" - (fun () -> end_with_exn ()); + [ Bench.Test.create ~name:"simple computation" simple_computation; + Bench.Test.create ~name:"simple computation w/handler" simple_with_handler; + Bench.Test.create ~name:"end with exn" end_with_exn; ] |> Bench.make_command |> Command.run