Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (17 sloc) 608 Bytes
(* Yoann Padioleau
*
* Copyright (C) 2010 Facebook. All Rights Reserved.
*)
open Xml_types
(*****************************************************************************)
(* Prelude *)
(*****************************************************************************)
(*****************************************************************************)
(* Entry points *)
(*****************************************************************************)
let rec iter_rec f xml =
match xml with
| Element (s, attrs, body) ->
f (s, attrs, body);
List.iter (iter_rec f) body;
| PCData s -> ()
Something went wrong with that request. Please try again.