let
fail e s =
failwith
(
Printf
.sprintf
"Bad old DBforge file (%s: %s)"
s (
Xml
.to_string e)
)