let get_enclosure xmls =
try
match List.find (find_ele "enclosure") xmls with
Element (_,atts,_) ->
Some { encl_url = get_att atts "url" ;
encl_length = int_of_string (get_att atts "length") ;
encl_type = get_att atts "type" ;
}
| _ ->
None
with
_ ->
None