labeled_tuple.ml
1 2 3 4 5 6 7 8 open! Base let is_valid alist = List.exists alist ~f:(fun (option, _) -> Option.is_some option) let atom_of_label = function | None -> "." | Some string -> "~" ^ string ;;
1 2 3 4 5 6 7 8
open! Base let is_valid alist = List.exists alist ~f:(fun (option, _) -> Option.is_some option) let atom_of_label = function | None -> "." | Some string -> "~" ^ string ;;