SuaveDotLiquidMutlieView.fs

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 = DotLiquid.page "index.html" (people)
let details name =  DotLiquid.page "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