Web_example.fold

open Core
open Opium


type Person =
  { name :: String,
     age :: Int }


val print_param =
  put "/hello/:name" do req ->
    Response.text ("Hello " + param req "name")
  end


val print_person =
  get "/person/:name/:age" do req ->
    let person = 
      { name = param req "name",
        age  = int (param req "age") }
    in
      Response.json person
  end


val get_metric_for_date =
  get "/analytics/:metric_name/:date" do req ->
    div class: "metric-header" [
      h1 style: [font => `Helvetica, color => #223322]
        "Metric: $(req.metric_name)",
      p "Interval: $(date.start) $(date.end)"
    ]
  end


fun main () =
  let api =
    App.new
    |> print_param
    |> print_person
    |> get_metric_for_date
  in
    App.run api