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

big fix

Browse source
This commit is contained in:
Swrup 2022-02-18 01:37:25 +01:00
parent be599322da
commit a3150b9750
8 changed files with 132 additions and 143 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/permap.ml
View file

@ -63,17 +63,11 @@ let login_post request =
| _ -> assert false
let user request =
render_unsafe
( match User.list () with
| Ok s -> s
| Error _ -> "" )
request
render_unsafe (Result.fold ~ok:Fun.id ~error:Fun.id (User.list ())) request
let user_profile request =
render_unsafe
( match User.public_profile request with
| Ok s -> s
| Error e -> e )
(Result.fold ~ok:Fun.id ~error:Fun.id (User.public_profile request))
request
let logout request =