Suave和DotLiquid

Question

为澄清而编辑

不知何故，这是可行的：

path "/" >=> warbler (fun _ -> OK (string DateTime.Now))

但这一次却没有：

let txnAccA =
    let sqlStr = "select JSON from Store.Txn"
    let result = Db.execute sqlStr Config.oConnStr
    match result with
    | Some a ->
        [for i in a do 
            let msg = JsonConvert.DeserializeObject<TxnAccA>(i)
            yield msg
            ]

    | _ ->
        List.empty<TxnAccA>

let txnAmtA =
    let sqlStr = "select JSON from Store.Amt"
    let result = Db.execute sqlStr Config.oConnStr
    match result with
    | Some a ->
        [for i in a do 
            let msg = JsonConvert.DeserializeObject<TxnAmtA>(i)
            yield msg
            ]

    | _ ->
        List.empty<TxnAmtA>

let result ()= {Acc= txnAccA; Amt= txnAmtA}
path "/txn" >=> warbler (fun _ -> page "txn.html" (result()))

我所说的“工作”是指页面不是静态的，它显示来自数据库的最新数据。知道为什么吗？

Answer 1

txnAccA和txnAmtA需要是函数(类似于result)。它们现在被定义为值，所以get只分配一次，不会查询每个请求的DB。每次调用时，result都会创建一个新记录，但是值始终保持不变。

let txnAccA () = //...

let txnAmtA () = //...

let result () = { Acc = txnAccA(); Amt = txnAmtA() }
path "/txn" >=> warbler (fun _ -> page "txn.html" (result()))