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

update example

Browse source
This commit is contained in:
Swrup 2024-04-16 03:33:49 +02:00
parent e722970547
commit f0ef5803b7
5 changed files with 69 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/slippery_slidy.ml
View file

@ -186,7 +186,7 @@ let conv : type a. a t -> Jv.t -> a =
fun w ->
match w with
| Text _ -> Jv.to_string
| Slider _ -> Jv.to_float
| Slider _ -> fun jv -> float_of_string (Jv.to_string jv)
| Color _ -> (* TODO validate here and make a color type? *) Jv.to_string
let add_input_listener t f =