Add option iter

[tiger.ml.git] / compiler / src / lib / tiger / tiger_opt.mli

diff --git a/compiler/src/lib/tiger/tiger_opt.mli b/compiler/src/lib/tiger/tiger_opt.mli
index 719e854..662ca4a 100644 (file)
--- a/compiler/src/lib/tiger/tiger_opt.mli
+++ b/compiler/src/lib/tiger/tiger_opt.mli
@@ -2,4 +2,6 @@ type 'a t = 'a option
 
 val map : 'a t -> ('a -> 'b) -> 'b t
 
+val iter : 'a t -> f:('a -> unit) -> unit
+
 val get : 'a t -> default:'a -> 'a