From cb68e1ae66b736b6f6d2ca84ea91e5d7adec6218 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 12 Mar 2015 18:09:32 +0100
Subject: [PATCH] app_parse: expose "junk" combinator

---
 src/string/app_parse.mli | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/string/app_parse.mli b/src/string/app_parse.mli
index 806e1e95..7d1249bb 100644
--- a/src/string/app_parse.mli
+++ b/src/string/app_parse.mli
@@ -64,6 +64,9 @@ val return : 'a -> 'a t
 val pure : 'a -> 'a t
 (** Synonym to {!return} *)
 
+val junk : unit t
+(** Skip next char *)
+
 val fail : string -> 'a t
 (** [fail msg] fails with the given error message *)