Commits

camlspotter committed 0274364

-> pre fix

  • Participants
  • Parent commits 7d8f5bc
  • Branches dev

Comments (0)

Files changed (1)

       | GREATERRBRACKET|GREATERRBRACE|FUNCTOR|FUNCTION|FUN|FOR|FALSE
       | EXTERNAL|EXCEPTION|EOF|END|DOTDOT|DOT|DONE|CONSTRAINT|COLONGREATER
       | COLON|CLASS|BARRBRACKET|BAR|BANG|BACKQUOTE|ASSERT|AS|AND
-        -> true
+          -> true
 
       | _ -> false
 
     | MINUSGREATER ->
         let rec f bases = match bases with
           | { k = (KWith cols) } :: _ ->
-              fix (cols + 4),
+              fix (cols + 2),
               { k = KCaseArrow; indent = cols + 4; } :: bases
           | { k = (KFunction cols) } :: _ ->
-              fix (cols + 4),
+              fix (cols + 2),
               { k = KCaseArrow; indent = cols + 6; } :: bases
           | { k = (KFun cols) } :: _ ->
               fix (cols + 2),