유쾌한와 DotLiquid

Question

은 명확성을 위해 편집

어떻게 든이 작품

는 "작동"으로

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과 유사) 기능이되어야합니다. 그것들은 이제 값으로 정의되므로 한번 할당하면 모든 요청에 ​​대해 DB를 쿼리하지 않습니다. result은 호출 될 때마다 새 레코드를 만들지 만 값은 항상 동일하게 유지됩니다.

let txnAccA() = //... 

let txnAmtA() = //... 

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