You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
264 B
20 lines
264 B
type t = ..
|
|
|
|
type t += Coucou
|
|
|
|
let f (x : string) : (string, t) Result.t =
|
|
Ok x
|
|
|
|
let () =
|
|
match f "coucou" with
|
|
| Ok x -> print_endline x
|
|
| _ -> assert false
|
|
|
|
let v = Coucou
|
|
|
|
let f = function
|
|
| Coucou -> print_endline "aaaa"
|
|
|
|
type t += Bite
|
|
|
|
let () = ()
|
|
|