removed useless function

2025-09-17 23:02:02 +01:00
parent 9aa6ba38a9
commit c3fb135d97
1 changed files with 0 additions and 2 deletions
--- a/parser.ml
+++ b/parser.ml
@@ -15,8 +15,6 @@ type 'a parser =
  { run : input -> 'a parser_result
  }

-let runParser i p = p.run i
-
 let fold_left1 (f: 'a -> 'a -> 'a) (xs: 'a list) : 'a = match xs with
  | []      -> failwith "TODO: make method total; empty list"
  | x :: xs -> List.fold_left f x xs