simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

forgot a function in Sexp.Traverse

Browse source
This commit is contained in:
Simon Cruanes 2014-09-18 11:14:29 +02:00
parent f19845f3d6
commit 78ac2f6f70
2 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
misc/sexp.ml
View file

@ -608,6 +608,7 @@ module Traverse = struct
let to_int e = _try_atom e int_of_string
let to_bool e = _try_atom e bool_of_string
let to_float e = _try_atom e float_of_string
let to_string e = _try_atom e (fun x->x)
let to_pair e = match e with

2
misc/sexp.mli
View file

@ -260,6 +260,8 @@ module Traverse : sig
val to_bool : t -> bool option
val to_float : t -> float option
val to_list : t -> t list option
val to_pair : t -> (t * t) option