SinatraっぽいOCatraを書いてみた - komamitsu.log で作ったOCatraですが、もうちょっとすっきり書けるように修正。
open Ocatra open HttpCommon open HttpCommon.HttpContent let _ = get "/" (fun r -> say (TextPlain "Hello, World (GET)") ()); post "/" (fun r -> say (TextPlain "Hello, World (POST)") ()); get "/givemeyournameandage" (fun r -> say ( TextHtml ( "<html><head><title>hello " ^ r ++> "name" ^ "</title></head>" ^ "<body><h3>you are " ^ r ++> "age" ^ " years old.</h3></body></html>") ) () ); run ()