SHA256
1
0
forked from pool/ocaml-cudf
Files
ocaml-cudf/allow_underscore.patch

14 lines
518 B
Diff

Index: cudf-0.7/cudf_type_lexer.mll
===================================================================
--- cudf-0.7.orig/cudf_type_lexer.mll
+++ cudf-0.7/cudf_type_lexer.mll
@@ -24,7 +24,7 @@ let digit = [ '0' - '9' ]
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 }