src/listMore.ml

   1 (* *)
   2
   3 open Prelude
   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 = catch (find f)
  15
  16 end (* List *)