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
ff2205f9
Commit
ff2205f9
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2002-11-07 17:33:20 by cvscast] Empty log message
Original author: cvscast Date: 2002-11-07 17:33:20+00:00
parent
082b52f6
Changes
1
Hide whitespace changes
Inline
Side-by-side
runtime/load_xml.ml
View file @
ff2205f9
...
...
@@ -27,6 +27,8 @@ let run s =
let
curr
=
ref
E_end_of_stream
in
let
get
()
=
match
next_event
()
with
|
Some
(
E_error
exn
)
->
failwith
(
Pxp_types
.
string_of_exn
exn
)
|
Some
E_end_of_stream
->
failwith
"Unexpected end of XML stream"
|
Some
x
->
curr
:=
x
|
None
->
()
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