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

add categories

Browse source
This commit is contained in:
Swrup 2022-03-09 14:36:19 +01:00
parent 4064fced95
commit b5fc7e9a8d
6 changed files with 85 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/app.ml
View file

@ -78,9 +78,13 @@ let log =
let () = Dream.log "log: %b" log
let admins =
let dirs = Scfg.Query.get_dirs "admin" config in
let get_dirs name =
let dirs = Scfg.Query.get_dirs name config in
List.map
(fun dir ->
Result.fold ~error:failwith ~ok:Fun.id (Scfg.Query.get_param 0 dir) )
dirs
let admins = get_dirs "admin"
let categories = get_dirs "category"