Source

tuareg-mode-custom / test / 2.0.4.ml

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

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

let f = function 
  | p ->
    xxx; (* ??? *)
    yyy
  | p
    -> 
    xxx;
      yyy; (* ??? *)
  | p 
    -> let x = 1 
       in x
;;

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

let g = match 1 with
    p -> 
      xxx;
      yyy
  | p -> 
    xxx; (* ??? *)
    yyy (* ??? *) 

let g = fun
  p -> 
    xxx;
    yyy

let f = match t with
  | p ->
    xxx; (* ??? *)
    yyy
  | q -> begin 
    xxx; (* ??? *)
    yyy
  end  (* ??? *)
  | q ->
    begin  (* ??? *)
      xxx;
      yyy
    end