Skip to content

Commit

Permalink
chore: format the changes
Browse files Browse the repository at this point in the history
  • Loading branch information
voodoos committed Jan 30, 2024
1 parent b1d34ba commit 729c63d
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions ocaml-lsp-server/src/folding_range.ml
Original file line number Diff line number Diff line change
Expand Up @@ -188,11 +188,13 @@ let fold_over_parsetree (parsetree : Mreader.parsetree) =
let lident_range = Range.of_loc lident.Asttypes.loc in
let expr_range = Range.of_loc expr.Parsetree.pexp_loc in
push { Range.start = lident_range.end_; end_ = expr_range.end_ })
| Pexp_ifthenelse (if_expr, then_expr, else_expr) ->
let loc = { if_expr.pexp_loc with loc_end = then_expr.pexp_loc.loc_end } in
| Pexp_ifthenelse (if_expr, then_expr, else_expr) ->
let loc =
{ if_expr.pexp_loc with loc_end = then_expr.pexp_loc.loc_end }
in
Range.of_loc loc |> push;
self.expr self then_expr;
Option.iter else_expr ~f:(self.expr self);
Option.iter else_expr ~f:(self.expr self)
| Pexp_apply _
| Pexp_while _
| Pexp_for _
Expand Down

0 comments on commit 729c63d

Please sign in to comment.