Source

tuareg-mode-custom / test / 2.0.4x.ml

Full commit
(* indented by e721ec4048e5 *)
let f = match t with
  | p ->
      xxx;
      yyy
;;

type t = 
    int 
    -> [ Foo | Bar ]
    -> int

let f = function 
  | p ->
      xxx;
      yyy
  | p
    -> 
      xxx;
	yyy; (* ??? computed from the indentation of ->, instead of | *)
  | p 
    -> let x = 1 
       in x
;;

let g = function
p ->  (* ??? *)
  xxx;
  yyy
  | p -> xxx;
      yyy
  | 12 -> 
      xxx;
      yyy

let g = function
p (* ??? *)
->  
  xxx;
  yyy
  | p
    ->
      xxx;
	yyy (* ??? *)

let g = match 1 with
    p -> 
      xxx;
      yyy
  | p -> 
      xxx;
      yyy

let g = fun
  p -> 
    xxx;
    yyy