Source file eliom_lazy.ml

# 1 "src/lib/eliom_lazy.server.ml"
type 'a request = {data : unit -> 'a; mark : 'a request Eliom_wrap.wrapper}

let mark = Eliom_wrap.create_wrapper (fun l -> l.data ())
let from_fun data = {data; mark}
let from_val v = {data = (fun () -> v); mark}
let force v = v.data ()