totbwf / fsharp.data.dataloader Goto Github PK

let cache<'a> (name: string) (f: Fetch<'a>): Fetch<'a> =
    let unFetch env: Result<'a> =
        // ...
        match DataCache.get identifier env.Cache with
        | Some result -> // ...
        | None -> 
            match f.unFetch env with 
            | Done  a -> // ...
            | Blocked  (blocked, f) ->
                let status = FetchResultDefinition NotFetched
                DataCache.add identifier status env.Cache 

                let setStatus (a: 'a) = 
                    (status :>IFetchResult<'a>).SetStatus (FetchSuccess a)
                    a

                Blocked(blocked, MapExpr(setStatus, f))
            | FailedWith error -> // ...

    Fetch.create unFetch