File allow_underscore.patch of Package ocaml-cudf

---
 lib/cudf_type_lexer.mll |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

--- a/lib/cudf_type_lexer.mll
+++ b/lib/cudf_type_lexer.mll
@@ -24,7 +24,7 @@
 let blank = [ ' ' '\t' ]
 let blanks = blank+
 let ident = lower_letter (lower_letter | digit | '-')*
-let pkgname = (letter | digit | ['-' '+' '.' '/' '@' '(' ')' '%'])+
+let pkgname = (letter | digit | ['-' '+' '.' '/' '@' '(' ')' '%' '_'])+
 
 rule token_cudf = parse
   | "true!"		{ VPKGTRUE }