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

add all event from ocaml

Browse source
This commit is contained in:
Swrup 2022-02-18 18:31:55 +01:00
parent c18af91a9f
commit 5785252c7f
8 changed files with 52 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/babillard.ml
View file

@ -225,12 +225,9 @@ let parse_image image =
(* make up random name if no name was given *)
Uuidm.to_string (Uuidm.v4_gen random_state ())
in
if not (is_valid_image content) then
Error "invalid image"
else if String.length alt > 1000 then
Error "Image description too long"
else
Ok (Some (name, content, alt))
if not (is_valid_image content) then Error "invalid image"
else if String.length alt > 1000 then Error "Image description too long"
else Ok (Some (name, content, alt))
(*TODO switch to markdown !*)
(* insert html into the comment, and keep tracks of citations :