мап и тейквайл норм было б

не - там надо на выходе получить резалт

let maybeAsyncUploadedFiles: Async<ResizeArray<int64>> = AsyncSeq.ofSeq files |> AsyncSeq.mapAsync tryUploadFileAsync |> AsyncSeq.fold(fun maybeList file -> maybeList |> Result.bind (fun (list: ResizeArray<_>) -> match file with | Result.Ok (Some r) -> list.Add r ; Result.Ok list | Result.Ok None -> list.Add -1L; Result.Ok list | Result.Error e -> Result.Error list) ) (Result.Ok(ResizeArray())) |> Async.map (function Ok x | Error x -> x) EARLY return блять

:D

оно теперь собирает список до первой ошибки

и возвращает чо получилось

выглядит как говно, поэтому я виню дизайн @Dolfik

зачем фолд и мутабельное?

выглядит как говно, поэтому я виню дизайн @Dolfik

Ну вполне возможно дизайн говно :)

зачем фолд и мутабельное?

Почему нет? оно ж локально мутабельное

Почему нет? оно ж локально мутабельное

да там замапить в сек резалтов и тейквайл из саксесс

а потом замапить в то, что внеутри Ока

Кстати, да

Ну вполне возможно дизайн говно :)

что значит - ВОЗМОЖНО?!

Но я хз как ещё разрулить кейс, когда нужно сначала загрузить все файлы, а потом отправить запрос, при этом если файл не удалось загрузить - запрос не отправлять

Кстати, да

ленивость ж

Но я хз как ещё разрулить кейс, когда нужно сначала загрузить все файлы, а потом отправить запрос, при этом если файл не удалось загрузить - запрос не отправлять

ну ок :)

Но я хз как ещё разрулить кейс, когда нужно сначала загрузить все файлы, а потом отправить запрос, при этом если файл не удалось загрузить - запрос не отправлять

ну мы тут не все грузим. а тока до первой ошибки

Либо всё, либо ничего

Причём грузим последовательно

а если ошиблись в серединке - надо посылать какую "отмену"?

Кстати

Я вспомнил

Ничего посылать не надо)

Можно ж unfold юзать

Он прямо то, что надо

вернули юнит при ошибке

и последовательность стопнулась

Анфолд фтв

вернули юнит при ошибке

Так надо Result вернуть, чтобы потом обработать эту ситуацию

Так надо Result вернуть, чтобы потом обработать эту ситуацию

какую?

какую?

Что не удалось загрузить файлы

Ок

let tryUploadFileAsync fileType = async { match fileType with | "image" -> return Some 1L | "uploading_not_required" -> return None | _ -> return failwithf "%s uploading is not supported" fileType } module Async = let map f x = async.Bind(x, f >> async.Return) let files = [] let maybeAsyncUploadedFiles = files |> Seq.map tryUploadFileAsync |> Async.Sequential |> Async.Catch |> Async.map (function | Choice1Of2 allIdList -> () | Choice2Of2 error -> () )

ИЗИ

заметьте как я ловко использовал исключение.

оно остановится на первой ошибке загрузке файла. Или все их загрузит.

и не выглядит как говно

Async.Sequential ток нет в стандартной либе

Async.Sequential ток нет в стандартной либе

есть

ОБНОВИСЬ

КУДА

Что делает Async.Catch?

ОБНОВИСЬ

только после бумажки заверенной 10 архитекторами что оно не пизданется на ведре и иос

шучу

наверно можно

FSharp.Core 4.7

КУДА

^^^

FSharp.Core 4.7

FSharp.Core o7

После этого

Choice1Of2, матерь божья, это что, местный Either?

Async.Sequential ток нет в стандартной либе

вот тебе вариант через CE let uploadedFilesAsync = async { try let successIdList = ResizeArray<_>() for file in files do match! tryUploadFileAsync file with | Some id -> successIdList.Add id | None -> () return successIdList with e -> printfn "%s" (e.Message) return raise e }

Choice1Of2, матерь божья, это что, местный Either?

Si

Вы делаете меня грустить

Скинуть немного кода FSharp.Plus чтобы разгрустить?

вот тебе вариант через CE let uploadedFilesAsync = async { try let successIdList = ResizeArray<_>() for file in files do match! tryUploadFileAsync file with | Some id -> successIdList.Add id | None -> () return successIdList with e -> printfn "%s" (e.Message) return raise e }

ЭКСЕПШОНЫ МЕДЛЕННО

Скинуть немного кода FSharp.Plus чтобы разгрустить?

А Async.Catch-то что делает? Давай, не откажусь

ЭКСЕПШОНЫ МЕДЛЕННО

сказал человек который ПОСЛЕДОВАТЕЛЬНО грузит 100500 файлов по сети

ЭКСЕПШОНЫ МЕДЛЕННО

как будто это единственное что там тормозит

ЭКСЕПШОНЫ МЕДЛЕННО

послушай - за тебя тут придумали решение

а ты ещё и выкобениваешься

сказал человек который ПОСЛЕДОВАТЕЛЬНО грузит 100500 файлов по сети

Это уже не ко мне

один эксепшн НА ВЕСЬ воркфлоу явно не будет проблемой

один эксепшн НА ВЕСЬ воркфлоу явно не будет проблемой

МЕДЛЕННО

В смысле - эксепшены медленные?

А Async.Catch-то что делает? Давай, не откажусь

https://github.com/fsprojects/FSharpPlus/blob/master/src/FSharpPlus/Math/Applicative.fs

один эксепшн НА ВЕСЬ воркфлоу явно не будет проблемой

А вдруг этот код на тысяче агентов будет выполняться???

В смысле - эксепшены медленные?

ну разматывать стек небыстро

А Async.Catch-то что делает? Давай, не откажусь

эксепшн ловит и заворачивает в Either

пользуйтесь эксепшнами.

С длиннющим стеком в миллион вызовов.

локально

как я

тут в catch блоке надо чот умное написать, но это не ко мне

А, там же локально.

А, стек же

юзайте result, err := doSomething()

вы чо

Где мои вилы?

Когда я был глупым джуном, я парсил так: int v = 0; try { v = int.Parse(str); } catch (Exception ex) { ... }