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 layout ?include_static_css ?nav:(nav_=`Default) ~title:title_ body_ =
let breadcrumb = let breadcrumb =
let to_nav kvs = let to_nav kvs =
@ -112,7 +108,7 @@ let layout ?include_static_css ?nav:(nav_=`Default) ~title:title_ body_ =
] ]
in in
(*> Note: Last declared CSS wins - so one can override here*) (*> 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 in
html html
(head (title (txt title_)) (head (title (txt title_))