labeled_tuple.ml
ppx_sexp_conv
ppx_sexp_conv.expander
ppx_sexp_conv.runtime-lib
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 ;;