52 lines
683 B
OCaml
52 lines
683 B
OCaml
|
let f = function
|
||
|
| _ -> 0
|
||
|
;;
|
||
|
|
||
|
let f x = match x with
|
||
|
| _ -> 0
|
||
|
;;
|
||
|
|
||
|
let f =
|
||
|
function
|
||
|
| _ -> 0
|
||
|
;;
|
||
|
|
||
|
let f x =
|
||
|
match x with
|
||
|
| _ -> 0
|
||
|
;;
|
||
|
|
||
|
let f x =
|
||
|
begin match x with
|
||
|
| _ -> 0
|
||
|
end
|
||
|
;;
|
||
|
|
||
|
let check_price t = function
|
||
|
| { Exec.
|
||
|
trade_at_settlement = (None | Some false);
|
||
|
} -> ()
|
||
|
|
||
|
let check_price t = function
|
||
|
| simpler -> ()
|
||
|
| other -> ()
|
||
|
|
||
|
(* Sometimes we like to write big alternations like this, in which case the
|
||
|
comment should typically align with the following clause. *)
|
||
|
let 0 =
|
||
|
match x with
|
||
|
| A
|
||
|
(* a *)
|
||
|
-> a
|
||
|
let 0 =
|
||
|
match x with
|
||
|
A
|
||
|
(* a *)
|
||
|
-> a
|
||
|
|
||
|
let _ =
|
||
|
a
|
||
|
|| match a with
|
||
|
| a -> true
|
||
|
| b -> false
|