Source

ocamlspot / utils.ml

Diff from to

File utils.ml

   let iter ~f = function
     | None -> ()
     | Some v -> f v
+
+  let default dv = function
+    | None -> dv
+    | Some v -> v
 end
 
 exception Finally of exn * exn