Romɑn
Vasily
Ayrat
Что?
ну адф работает. через боль и страдания, но шоделать
Ayrat
Когда-то это было хорошим решением не писать свой оркестратор!!11
Romɑn
Ayrat
(возможно надо было написать свой оркестратор)
Romɑn
Romɑn
Romɑn
Ayrat
фпесду этот эпик лаунчер, там ничерта интересного.
Ayrat
метро новый фуфельный
Ayrat
ну и Fortnite канешна
Vasily
Бля, хочу стим контроллер
Ayrat
я тебе помогу
https://www.amazon.co.uk/Valve-Software-Wireless-Steam-Controller/dp/B016KBVBCS/ref=sr_1_2?s=videogames&ie=UTF8&qid=1552598187&sr=1-2&keywords=steam+controller
Hog
Ayrat
он ОХУЕННЫЙ, сразу говорю, надо брать
Ayrat
в руке как влитой сидит
Ayrat
Nikolay
Nikolay
И ^this
Pavel
Что за /u003
char 0x3c, char 0x3e;;
val it : char * char = ('<', '>')
Nikolay
Pavel
да.
Nikolay
Странно, не?
Pavel
ну смотря чем пользуешься. может для этого не странно )
Nikolay
Nikolay
Vasily
Млин, погряз в бесконечных option.map
Vasily
Шо делать
Vasily
?
Vasily
Ы?
Ayrat
let (>>-) = Option.map
Vasily
Ну как вариант, конечно
Ayrat
вместо
|> Option.map f
будет
>>- f
Ayrat
согласиська
Vasily
Это сиська, которая согласна?
Ayrat
сиська, которая ещё и согласна сразу в десять раз лучше!
Vasily
Так, а теперь такой же, но резалт в асинк завернуть
Vasily
Точнее не так
Ayrat
для резалт асинков есть готовый билдер
Ayrat
asyncResult
Ayrat
готовый он не в кор либе, но в сопутствующих, от мЭтров
Vasily
Я получаю option<Async<'a>>
Ayrat
т.е. на наколенная поделка
Vasily
А хочу его преобразовать в Async <'a option>
x
Ayrat
Traverse кажется?
ну учитывая что в F# монадки не являются инстансом Traversable ... :D
Ayrat
то и traverse нет
Ayrat
https://github.com/fsprojects/FSharpPlus/blob/master/src/FSharpPlus/Traversable.fs
Ayrat
вот эти упорки упоролись
Ayrat
но я бы не советовал идти этим путём. Твой код на F#, который будет недохаскелем, будет write-only
Vasily
Не, таким не хочу
Ayrat
Не, таким не хочу
тогда просто копипиздни это и забей
https://github.com/havarnov/asyncresult/blob/master/AsyncResult/Library.fs
Vasily
Оператор почему-то возвращает obj option
Ayrat
потому что там нет явных аргументов
Ayrat
ну типа синтаксический value
Ayrat
let a = b
Ayrat
чтобы сделать это явной функцией с генерик параметрами надо добавить компилятору этих параметров
Ayrat
let a arg = b arg
Ayrat
и сразу он прочешет что параметры можно генерализировать
Ayrat
короче
let inline (>>-) x f = Option.map f x
Vasily
Так и написал
Ayrat
и чо, хочешь сказать он тебе всё ещё obj выводит?
Viacheslav
Vasily
let inline (!>>-) a f =async{
return a>>-f
}
Ayrat
Ayrat
Vasily
Vasily
Ayrat
нихуя себе
Крылатый
Доброе утро, товарищи и товарищессы!
Крылатый
Vasily
Пора гопак затаскивать :)