diff --git a/CHANGES.md b/CHANGES.md index d802af9..0dda0cb 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,5 +1,9 @@ # Changelog +## Unreleased + +- Stop printing spec errors (fixes #1) + ## 0.2.0 ### Added diff --git a/src/climate/error.ml b/src/climate/error.ml index ba9cf55..413e653 100644 --- a/src/climate/error.ml +++ b/src/climate/error.ml @@ -180,6 +180,5 @@ module Spec_error = struct end let spec_error error = - Printf.eprintf "%s" (Spec_error.to_string error); raise (Spec_error.E error) ;; diff --git a/tests/unit_tests/spec_error_tests.ml b/tests/unit_tests/spec_error_tests.ml index fd4eabb..9d9db94 100644 --- a/tests/unit_tests/spec_error_tests.ml +++ b/tests/unit_tests/spec_error_tests.ml @@ -6,7 +6,7 @@ let check f = let _ = Command.singleton (f ()) in () with - | Spec_error.E _ -> () + | Spec_error.E e -> Printf.eprintf "%s" (Spec_error.to_string e) ;; let%expect_test "duplicate argument name" =