getValue key =
async {
let value = getCacheValue key
match value with
| Some v -> return Some v
| None ->
let! newValue = fetchValue key
match newValue with
| None -> return None
| Some nv ->
setCacheValue key nv |> ignore
return Some nv
}
вопроса два
- можно ли переписать на всякие Option.orElse и Option.bind? я внутри CE спотыкаюсь об return'ы
- нужно ли? или как есть паттерн матчингом лучше\красивее\понятнее
не знаю , насколько понятнее , но вот вариант : getCacheValue key |> Option.orElseWith ( fun _ -> async { let! newValue = fetchValue key newValue |> Option.iter (setCacheValue key) return newValue } |> Async.RunSynchronously )
но лучше наверное так , если тебе нужно весь метод в асинк заворачивать async { match getCacheValue key with | Some value -> return (Some value) | _ -> let! newValue = fetchValue key newValue |> Option.iter (setCacheValue key) return newValue }
Я бы разбил на две функции: в каждой по одному матчу.
Обсуждают сегодня