Project

General

Profile

Revision c02d255e src/utils.ml

View differences:

src/utils.ml
44 44

  
45 45
module ISet = Set.Make(IdentModule)
46 46

  
47
let desome x = match x with Some x -> x | None -> failwith "desome"
48

  
47 49
let option_map f o =
48 50
  match o with
49 51
  | None   -> None

Also available in: Unified diff