Skip to content

GitLab

Unverified Commit efe45c28 authored by zapashcanon's avatar zapashcanon
Browse files

typo

parent 3a3c93f7
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/server.ml
View file @ efe45c28
...@@ -20,7 +20,7 @@ let () = ...@@ -20,7 +20,7 @@ let () =
| None -> Dream.empty `Not_Found | None -> Dream.empty `Not_Found
| Some content -> | Some content ->
Dream.html Dream.html
(Template.render_unsafe ~lang:"end" ~title:"title" ~content) ) (Template.render_unsafe ~lang:"en" ~title:"title" ~content) )
; Dream.get "/:page" (fun request -> ; Dream.get "/:page" (fun request ->
match page (Dream.param "page" request) with match page (Dream.param "page" request) with
| None -> Dream.empty `Not_Found | None -> Dream.empty `Not_Found
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment