Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (18 sloc) 379 Bytes
open Opium.Std
(* let html_msg msg = <:html< *)
(* <html> *)
(* <head> *)
(* <title>Message</title> *)
(* </head> *)
(* <body> *)
(* $str:msg$ *)
(* </body> *)
(* </html> *)
(* >> *)
(* let hello = get "/" (fun req -> *)
(* `Html ("Hello World" |> html_msg |> Html.to_string) *)
(* |> respond') *)
let _ =
App.empty
(* |> hello *)
|> App.run_command
You can’t perform that action at this time.