8 lines
178 B
OCaml
8 lines
178 B
OCaml
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
|
|
;;
|