Project

General

Profile

Revision 53206908 src/utils.ml

View differences:

src/utils.ml
36 36

  
37 37
module ISet = Set.Make(IdentModule)
38 38

  
39
let desome x = match x with Some x -> x | None -> failwith "desome"
39
exception DeSome
40
let desome x = match x with Some x -> x | None -> raise DeSome
40 41

  
41 42
let option_map f o =
42 43
  match o with

Also available in: Unified diff