Web Development

Giraffe

open Giraffe

let webApp =
    choose [
        GET >=> choose [
            route "/" >=> text "Hello World"
            route "/about" >=> text "About page"
        ]
        POST >=> route "/submit" >=> text "Submitted!"
    ]

let configureApp (app: IApplicationBuilder) =
    app.UseGiraffe webApp

Saturn Framework

open Saturn

let app = application {
    use_router (router {
        get "/" (text "Hello from Saturn!")
    })
    use_gzip
}

run app

Web Frameworks