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