jon.recoil.org

Source file export.ml

1
2
3
4
5
6
7
8
let all_of_bool = [ false; true ]
let all_of_unit = [ () ]
let all_of_option all_of_elt = None :: List.map (fun elt -> Some elt) all_of_elt

let all_of_or_null all_of_elt =
  Basement.Or_null_shim.Null
  :: List.map (fun elt -> Basement.Or_null_shim.This elt) all_of_elt
;;