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

add moderation_action type

Browse source
This commit is contained in:
Swrup 2022-03-17 01:05:25 +01:00
parent 4f73a6e559
commit 7d402914fc
4 changed files with 47 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/user.ml
View file

@ -321,8 +321,7 @@ let update_metadata count label content user_id =
let^ () = Db.exec Q.upload_metadata (user_id, s) in
Ok ()
let pp_metadata fmt pair =
let label, content = pair in
let pp_metadata fmt (label, content) =
Format.fprintf fmt
{|
<div class="row">
@ -332,8 +331,7 @@ let pp_metadata fmt pair =
|}
label content
let pp_metadata_form fmt is_last count pair request =
let label, content = pair in
let pp_metadata_form fmt is_last count (label, content) request =
let form_tag = Dream.form_tag ~action:"/profile" request in
let button_text = if is_last then "Add" else "Save" in
Format.fprintf fmt