diff options
Diffstat (limited to 'lib/util.ml')
-rw-r--r-- | lib/util.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 531e4fe7d..cfb4ebabc 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -105,6 +105,11 @@ let app_opt f x = | Some f -> f x | None -> x +let un_opt x default = + match x with + | None -> default + | Some y -> y + (* Stream *) let stream_nth n st = |