no optMap

Author: cristianoc

analysis/src/FindFiles.ml

@@ -191,12 +191,12 @@ let findDependencyFiles base config =
   let open Infix in
   let deps =
     config |> Json.get "bs-dependencies" |?> Json.array |? []
-    |> optMap Json.string
+    |>  List.filter_map Json.string
   in
   let devDeps =
     config
     |> Json.get "bs-dev-dependencies"
-    |?> Json.array |? [] |> optMap Json.string
+    |?> Json.array |? [] |>  List.filter_map Json.string
   in
   let deps = deps @ devDeps in
   Log.log ("Dependencies: " ^ String.concat " " deps);

analysis/src/Infix.ml

@@ -1,15 +1,3 @@
-(**
- * This combines a filter and a map.
- * You provide a function that turns an element into an optional of another element,
- * and you get a list of all of the present results.
- *)
-let optMap : ('a -> 'b option) -> 'a list -> 'b list =
- fun fn items ->
-  List.fold_left
-    (fun result item ->
-      match fn item with None -> result | Some res -> res :: result)
-    [] items
-
 let ( |! ) o d = match o with None -> failwith d | Some v -> v
 
 let ( |? ) o d = match o with None -> d | Some v -> v