ocaml/testsuite/tests/match-exception-warnings/exhaustiveness_warnings.ml....

12 lines
306 B
Plaintext

# * * * * Characters 210-289:
....match None with
| exception e -> ()
| Some false -> ()
| None -> ()
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a value that is not matched:
Some true
val test_match_exhaustiveness : unit -> unit = <fun>
#