let db_of_xml = function | Xml.Element ("Postgres",_,_) -> Postgres | Xml.Element ("Mysql",_,_) -> Mysql | Xml.Element ("Odbc",_,_) -> Odbc | e -> fail e "db_of_xml"