Commits

camlspotter committed a0a4459

example

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|

tests/test_comma.ml

 
 let x y = 1,
           2 
+
+let x y = ( 1
+          , 2) 
+
+let x y = ( 1,
+            2 )
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.