robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Views: Using Option.of_list

Browse source
This commit is contained in:
rand00 2022-01-28 11:03:03 +01:00 committed by Reynir Björnsson
parent b564191b81
commit 161fec77af
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/views.ml
View file

@ -78,10 +78,6 @@ h1,h2,h3{line-height:1.2}
}
|}
let list_of_option = function
| Some v -> [ v ]
| None -> []
let layout ?include_static_css ?nav:(nav_=`Default) ~title:title_ body_ =
let breadcrumb =
let to_nav kvs =
@ -112,7 +108,7 @@ let layout ?include_static_css ?nav:(nav_=`Default) ~title:title_ body_ =
]
in
(*> Note: Last declared CSS wins - so one can override here*)
let static_css = static_css :: list_of_option include_static_css
let static_css = static_css :: Option.to_list include_static_css
in
html
(head (title (txt title_))