6 lines
113 B
Text
6 lines
113 B
Text
let foo x =
|
|
match x with
|
|
1 -> raise My_Exception
|
|
| 2 -> raise (Another_Exception "hi mom")
|
|
| _ -> 5
|
|
;;
|