Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
32a594cb
Commit
32a594cb
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2005-02-25 09:38:04 by afrisch] Missing not
Original author: afrisch Date: 2005-02-25 09:38:04+00:00
parent
6773b2fd
Changes
1
Hide whitespace changes
Inline
Side-by-side
schema/schema_validator.ml
View file @
32a594cb
...
...
@@ -293,7 +293,7 @@ let rec validate_any_type ctx =
let
validate_wildcard
ctx
w
=
let
qname
=
expect_any_start_tag
ctx
in
if
Atoms
.
contains
(
Atoms
.
V
.
of_qname
qname
)
w
.
wild_first
if
not
(
Atoms
.
contains
(
Atoms
.
V
.
of_qname
qname
)
w
.
wild_first
)
then
error
(
sprintf
"Tag %s is not accepted by the wildcard"
(
Ns
.
QName
.
to_string
qname
));
let
(
attrs
,
content
)
=
validate_any_type
ctx
in
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment