Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
module SuaveDotLiquidSample
open Suave
open Suave.Operators
open Suave.Filters
DotLiquid.setTemplatesDir (__SOURCE_DIRECTORY__ + "/templates")
type Person = { Name : string; Age : int }
let people = [{Name = "Thomas"; Age = 29};{Name = "Martin"; Age = 35}]
let index = "index.html" (people)
let details name = "details.html" (people |> List.find (fun i -> i.Name = name))
let app = choose [
path "/" >=> index
pathScan "/details/%s" (fun (name) -> details name)
startWebServer defaultConfig app
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.