diff options
author | Daniil Baturin <daniil@baturin.org> | 2017-01-16 14:42:26 +0700 |
---|---|---|
committer | Daniil Baturin <daniil@baturin.org> | 2017-01-16 14:42:26 +0700 |
commit | 482321db949bf5b5b6868a3fc8cbeaaa589578e2 (patch) | |
tree | 40c2f82d6c22e3da56fb708a0174304fd3a37f1b /src | |
parent | cfff74d6774de069b3233c04771bfc26ee988bdd (diff) | |
download | vyconf-482321db949bf5b5b6868a3fc8cbeaaa589578e2.tar.gz vyconf-482321db949bf5b5b6868a3fc8cbeaaa589578e2.zip |
Add a trivial 'a option -> 'a -> 'a function for substituting something for a default.
Diffstat (limited to 'src')
-rw-r--r-- | src/util.ml | 5 | ||||
-rw-r--r-- | src/util.mli | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/src/util.ml b/src/util.ml index b45f011..2bac3d6 100644 --- a/src/util.ml +++ b/src/util.ml @@ -20,3 +20,8 @@ let string_of_path path = match path with | [] -> "" | x :: xs -> Printf.sprintf "%s%s" x (aux xs "") + +let substitute_default o d = + match o with + | None -> d + | Some v -> v diff --git a/src/util.mli b/src/util.mli index ec0bb73..7d78a15 100644 --- a/src/util.mli +++ b/src/util.mli @@ -1,3 +1,5 @@ val find_xml_child : string -> Xml.xml -> Xml.xml option val string_of_path : string list -> string + +val substitute_default : 'a option -> 'a -> 'a |