swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
unikernel/duniverse/ppx_sexp_conv/expander/labeled_tuple.ml Normal file
View file

@ -0,0 +1,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
;;