Commits

camlspotter committed a0a4459

example

  • Participants
  • Parent commits 76df415

Comments (0)

Files changed (2)

         in
         f bases0
 
+    | COMMA ->
+        let rec f = function
+          | ({ k = (KBegin columns | KBracket columns | KBrace columns | KLet (_, columns)) } :: _ as bs) -> 
+              { k = KNone; indent = Indent.Set (columns + 2); line } :: bs, bs
+          | ({ k = (KParen columns) } :: _ as bs) -> 
+              { k = KNone; indent = Indent.Set columns; line } :: bs, bs
+          | { k = (KThen columns | KElse columns) } :: bs -> 
+              { k = KNone; indent = Indent.Set columns; line } :: bs, bs
+          | [] -> bases0, bases0 (* if overrun, keep the original *)
+          | _ :: bs -> f bs
+        in
+        f bases0
+
     | SEMI ->
         let rec f = function
-          | ({ k = (KParen columns | KBegin columns | KBracket columns | KBrace columns ) } :: _ as bs) -> 
+          | ({ k = (KParen columns | KBegin columns | KBracket columns | KBrace columns | KLet (_, columns)) } :: _ as bs) -> 
               { k = KNone; indent = Indent.Set columns; line } :: bs, bs
           | { k = (KThen columns | KElse columns) } :: bs -> 
               { k = KNone; indent = Indent.Set columns; line } :: bs, bs
         in
         f bases0
 
-    |COMMA
-
     |PREFIXOP _|OPTLABEL _|NATIVEINT _|LABEL _|COMMENT
     |WHEN|VIRTUAL|VAL|UNDERSCORE|TO|TILDE|
       SHARP|REC|QUOTE|QUESTIONQUESTION|QUESTION|

File tests/test_comma.ml

 
 let x y = 1,
           2 
+
+let x y = ( 1
+          , 2) 
+
+let x y = ( 1,
+            2 )