From 124b3b4e8f440f8c996263127336377c9456e090 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kim=20Nguy=E1=BB=85n?= Date: Thu, 16 Feb 2012 08:48:49 +0100 Subject: [PATCH] . --- src/tag.ml | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/tag.ml b/src/tag.ml index 01d3788..ce1979c 100644 --- a/src/tag.ml +++ b/src/tag.ml @@ -17,6 +17,11 @@ type operations = { translate : pool -> t -> t } +let dummy_fun =function _ -> failwith "Tag.ml Uninitialized tag structure" + + + + external null_pool : unit -> pool = "caml_xml_tree_nullt" external null_tag : unit -> t = "caml_xml_tree_nullt" external register_tag : pool -> string -> t = "caml_xml_tree_register_tag" -- 2.17.1