52 lines
665 B
OCaml
52 lines
665 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
|