mirror of https://github.com/Wilfred/difftastic/
48 lines
1.1 KiB
OCaml
48 lines
1.1 KiB
OCaml
let f x ({a = y} as r) (Some z) =
|
|
(* ^ function *)
|
|
(* ^ variable.parameter *)
|
|
(* ^ property *)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable.parameter *)
|
|
(x, a, y, r, z)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable *)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable.parameter *)
|
|
|
|
let f = fun x -> (x, y)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable *)
|
|
|
|
let _ =
|
|
match o with
|
|
| Some x -> x
|
|
(* ^ variable.parameter *)
|
|
| None -> y
|
|
(* ^ variable *)
|
|
|
|
let () =
|
|
for x = 1 to n do
|
|
ignore x;
|
|
(* ^ variable.parameter *)
|
|
ignore n;
|
|
(* ^ variable *)
|
|
done
|
|
|
|
let (x, y) = (x, y)
|
|
(* ^ variable *)
|
|
(* ^ variable *)
|
|
(* ^ variable *)
|
|
(* ^ variable *)
|
|
|
|
let {a = x} = assert false
|
|
(* ^ variable *)
|
|
|
|
let f x = (M.x, x)
|
|
(* ^ variable.parameter *)
|
|
(* ^ variable *)
|
|
(* ^ variable.parameter *)
|