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

Fixed unused param + simplification

Browse source
This commit is contained in:
rand00 2022-06-26 18:26:40 +02:00 committed by Reynir Björnsson
parent ffc062727a
commit f3d8eea546
2 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/builder_web.ml
View file

@ -673,13 +673,11 @@ let error_template error _debug_info suggested_response =
| None -> "?"
| Some req -> Dream.target req in
let referer =
error.Dream.request
|> Option.map (fun req -> Dream.header req "referer")
|> Option.value ~default:None
Option.bind error.Dream.request (fun req -> Dream.header req "referer")
in
let html =
if is_iframe_page ~req:error.Dream.request then
Views.viz_not_found ~target
Views.viz_not_found
else
Views.page_not_found ~target ~referer
in

2
lib/views.ml
View file

@ -235,7 +235,7 @@ let page_not_found ~target ~referer =
)
|> layout ~title:"Page not found"
let viz_not_found ~target =
let viz_not_found =
let title = "Visualization not found" in
let content =
[