simplify

ocaml-ppx · Feb 18, 2020 · 521d3e0 · 521d3e0
1 parent 4ffff85
commit 521d3e0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Source.ml b/lib/Source.ml
@@ -37,14 +37,14 @@ let indentation_of_index t idx =
     match String.split_lines t with
     | [] -> None
     | lines ->
-        let rec aux wc_acc ln = function
+        let rec aux wc_acc = function
           | [] -> None
           | h :: t ->
               if idx < wc_acc + String.length h then
                 Some (String.length h - String.(length (lstrip h)))
-              else aux (wc_acc + String.length h) (ln + 1) t
+              else aux (wc_acc + String.length h) t
         in
-        aux 0 1 lines
+        aux 0 lines
 
 let position_before t (pos : Lexing.position) =
   let is_closing c =