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