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

show plant list

Browse source
This commit is contained in:
Swrup 2021-12-09 01:57:53 +01:00
parent 0c856fe8f3
commit 4b85655be2
3 changed files with 34 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/permap.ml
View file

@ -133,7 +133,7 @@ let avatar_image request =
let plant_image request =
let plant_id = Dream.param "plant_id" request in
let nb = Dream.param "nb" request in
let nb = int_of_string (Dream.param "nb" request) in
let image = User.get_plant_image plant_id nb in
match image with
| Ok (Some image) ->