Source

ocaml-indent / main.ml

Diff from to

File main.ml

               { k = KNone; indent = Indent.Set columns; line } :: bs, bs
           | { k = (KThen columns | KElse columns) } :: bs -> 
               { k = KNone; indent = Indent.Set columns; line } :: bs, bs
+          (* comma cannot exceeds them (comma is stronger than them) *)
+          | ({ k = (KWith _ | KFunction _ | KFun _) } :: _ as bs) -> 
+              bases0, bs
           | [] -> bases0, bases0 (* if overrun, keep the original *)
           | _ :: bs -> f bs
         in