9 lines
256 B
OCaml
9 lines
256 B
OCaml
[@@@warning "-20"]
|
|
external observe : 'a -> 'b = "observe"
|
|
|
|
let test = function
|
|
| true -> observe 0
|
|
| false -> observe 1
|
|
| _ -> .
|
|
(* Unreachable; if this annotation was incorrect,
|
|
the OCaml compiler would error at pattern-checking-time *)
|