Websharper

gistfile1.txt

open WebSharper
open WebSharper.Html.Server

type Endpoints =
  | [<EndPoint "GET /">] Home
  | [<EndPoint "GET /about">] About

let MyApp =
  Warp.CreateApplication (fun ctx endpoint ->
    match endpoint with
    | Endpoints.Home ->
      Warp.Page(
        Body =
          [
            H1 [Text "Home!"]
          ]
      )
    | Endpoints.About ->
      Warp.Page(
        Body =
          [
            H1 [Text "About!"]
          ]
      )
  )


[<EntryPoint>]
do Warp.RunAndWaitForInput(MyApp) |> ignore