diff options
| author |  varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:36 +0000 |
|---|---|---|
| committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:36 +0000 |
| commit | 6b5556326d9b922b299383de0b7b39f89ab6d595 (patch) | |
| tree | c1e3b7972ffb59df67b7710a1e39485908f6860e /checklink/Library.ml | |
| parent | d892ae294cb2cec3fcf9445555f884420e90c346 (diff) | |
Adjustments to cchecklink's options and verbosity
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1866 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Library.ml')
| -rw-r--r-- | checklink/Library.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/checklink/Library.ml b/checklink/Library.ml index dbe7b46..0014025 100644 --- a/checklink/Library.ml +++ b/checklink/Library.ml @@ -3,10 +3,16 @@ open BinPos type bitstring = Bitstring.bitstring +let is_some = function +| Some(_) -> true +| None -> false + let from_some = function | Some(x) -> x | None -> raise Not_found +let filter_some l = List.(map from_some (filter is_some l)) + type 'a on_success = | OK of 'a | ERR of string |