OCatraを短くかけるように修正

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 ()