listMore.ml

   1 (* *)
   2
   3 open Apply
   4
   5 module List =
   6 struct
   7
   8   include ExtList.List
   9
  10   let filter_valid lst =
  11     (*List.fold_left (fun l elem -> match elem with | Some x -> x::l | None -> l) [] (List.rev lst)*)
  12     filter_map id lst
  13
  14   let find_option f l = try Some (find f l) with Not_found -> None
  15
  16 end (* List *)