Hello World.

I'm a novice in pxp, so here is one of my firs problems: when I compile this:
...
let collector = find ~deeply:true (fun node -> node # id_attribute_value = 
colr_name) collectors
...
I get:

This expression has type
  ('a Pxp_document.node #Pxp_document.extension as 'a) Pxp_document.node ->
  'a Pxp_document.node
but is here used with type
  ('b Pxp_document.node #Pxp_document.extension as 'b) Pxp_document.node =
    < add_node : ?force:bool -> 'b Pxp_document.node -> unit;
      add_pinstr : Pxp_dtd.proc_instruction -> unit;
      append_node : 'b Pxp_document.node -> unit;
      attribute : string -> Pxp_core_types.att_value;
      attribute_names : string list;
      attribute_type : string -> Pxp_core_types.att_type;
      attributes : (string * Pxp_core_types.att_value) list;
      attributes_as_nodes : 'b Pxp_document.node list;
      classify_data_node : 'b Pxp_document.node ->
                           Pxp_document.data_node_classification;
      comment : string option; complement_attlist : unit -> unit;
      create_data : Pxp_dtd.dtd -> string -> 'b Pxp_document.node;
      create_element : ?name_pool_for_attribute_values:Pxp_core_types.pool ->
                       ?position:string * int * int ->
                       ?valcheck:bool ->
                       ?att_values:(string * Pxp_core_types.att_value) list ->
                       Pxp_dtd.dtd ->
                       Pxp_document.node_type ->
                       (string * string) list -> 'b Pxp_document.node;
      create_other : ?position:string * int * int ->
                     Pxp_dtd.dtd ->
                     Pxp_document.node_type -> 'b Pxp_document.node;
      data : string; delete : unit; dtd : Pxp_dtd.dtd;
      dump : Format.formatter -> unit;
      encoding : Pxp_core_types.rep_encoding; extension : 'b;
      id_attribute_name : string; id_attribute_value : string;
      idref_attribute_names : string list;
      insert_nodes : ?pos:int -> 'b Pxp_document.node list -> unit;
      internal_adopt : 'b Pxp_document.node option -> int -> unit;
      internal_delete : 'b Pxp_document.node -> unit;
      internal_init : string * int * int ->
                      Pxp_core_types.pool option ->
                      bool ->
                      Pxp_dtd.dtd ->
                      string ->
                      (string * string) list ->
                      (string * Pxp_core_types.att_value) list -> unit;
      internal_init_other : string * int * int ->
                            Pxp_dtd.dtd -> Pxp_document.node_type -> unit;
      internal_set_pos : int -> unit;
      iter_nodes : ('b Pxp_document.node -> unit) -> unit;
      iter_nodes_sibl : ('b Pxp_document.node option ->
                         'b Pxp_document.node ->
                         'b Pxp_document.node option -> unit) ->
                        unit;
      local_validate : ?use_dfa:bool ->
                       ?check_data_nodes:bool -> unit -> unit;
      localname : string; namespace_info : 'b Pxp_document.namespace_info;
      namespace_manager : Pxp_dtd.namespace_manager; namespace_uri : 
      string; next_node : 'b Pxp_document.node; node_path : int list;
      node_position : int; node_type : Pxp_document.node_type;
      normprefix : string; nth_node : int -> 'b Pxp_document.node;
      optional_list_attribute : string -> string list;
      optional_string_attribute : string -> string option;
      orphaned_clone : 'b Pxp_document.node;
      orphaned_flat_clone : 'b Pxp_document.node;
      parent : 'b Pxp_document.node;
      pinstr : string -> Pxp_dtd.proc_instruction list;
      pinstr_names : string list; position : string * int * int;
      previous_node : 'b Pxp_document.node;
      quick_set_attributes : (string * Pxp_core_types.att_value) list -> unit;
      remove : unit -> unit;
      remove_nodes : ?pos:int -> ?len:int -> unit -> unit;
      required_list_attribute : string -> string list;
      required_string_attribute : string -> string;
      reset_attribute : string -> unit; root : 'b Pxp_document.node;
      set_attribute : ?force:bool ->
                      string -> Pxp_core_types.att_value -> unit;
      set_attributes : (string * Pxp_core_types.att_value) list -> unit;
      set_comment : string option -> unit; set_data : string -> unit;
      set_namespace_info : 'b Pxp_document.namespace_info option -> unit;
      set_nodes : 'b Pxp_document.node list -> unit;
      sub_nodes : 'b Pxp_document.node list; validate : unit -> unit;
      validate_attlist : unit -> unit;
      validate_contents : ?use_dfa:bool ->
                          ?check_data_nodes:bool -> unit -> unit;
      write : ?prefixes:string list ->
              ?default:string ->
              Pxp_core_types.output_stream -> Pxp_core_types.encoding -> unit 
>

Maybe I haven't understood the idea of Pxp_document.find function?
-- 
Yours truly, WBR, Paul Argentoff.
Jabber:	paul@jabber.rtelekom.ru
RIPE:	PA1291-RIPE

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners