forked from pool/ocaml-cudf
14 lines
518 B
Diff
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 }
|