diff --git a/parser.ml b/parser.ml
index e3bf936..97eaecf 100644
--- 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