код, который я выложил, оказался плохой, там возникает дедлок, если потоков больше двух. Интересно было бы понять, почему, но лучше взять библиотечную функцию

хотя судя по исходникам, это не совсем то

В конечном счете сделал через Async, там никаких дедлоков не возникает http://lpaste.net/340541

код, который я выложил, оказался плохой, там возникает дедлок, если потоков больше двух. Интересно было бы понять, почему, но лучше взять библиотечную функцию

там вобще race condition на race condition

нету гарантии что только 1 раз запустится тред

нету гарантии, что не перепишется, то, Value на Promise

хотя почему там deadlock сходу не вижу

ну и там MVar было бы проще

да, между проверкой и writeTVar есть окно, когда другие могут влезть и запустить

хотя Value на Promise я загнул

переход от Empty -> Promise неатомарный

тут как ни крутись

угу

тут если использовать то MVar

т.к. там IO можно запустить

надо Mvar попробовать

да

по идее Async должен взять на себя все случаю с exceptions и должно получиться без всякой страшной лапши с catch/finally

join $ modifyMVar (\case Empty -> do { async »= \x -> return (Promise x, wait x) } ; Promise w -> return (Promise w; wait w); }

Value кстати не нужно Async его уже содержит

о!

лихо

буду осмыслять

спасибо

Еще можно unsafePerformIO foo

Если NOINLINE сделать

Но лучше так не делать

о нет

для меня это имеет еще и некоторый педагогический смысл

поэтому лучше сделать "правильно", а не прогнуть систему под себя

Наверное лучше все что содержит unsafe лучше не делать

Привет всем. Когда-то установил себе haskell-stack, немного поигрался, месяц не трогал, думал начать проект, стал делать, и теперь постоянно выдает такую ошибку в линковщике(здесь про gcc, но у меня такая же с ghc). Может, кто сталкивался? http://stackoverflow.com/questions/1521859/nonrepresentable-section-on-output-error-during-linking-on-linux Сделано: - переустановил stack - удалил ~/.stack

Debian?

Да, sid

Используй cabal master

Стек не пофиксили еще вроде

В дебиане уже слишком новый gcc еще и с -fPIE если не ошибаюсь

Блин, точно. Я ж обновился на полтора гига неделю назад

Спасибо!

В ДЕБИАНЕ СЛИШКОМ НОВЫЙ ГЦЦ

В дебиане уже слишком новый gcc еще и с -fPIE если не ошибаюсь

Что? Поделил на ноль. Вот так неожиданность

Он с дурацкими опциями еще собран

Ну как для ghc дурацкими

А в арче, наверное, слишком старый gcc 😥

> В дебиане уже слишком новый gcc еще и с -fPIE > с -fPIE > 2017 ну наконец то хоть в серверном линуксе стали интересоваться безопасностью

ну PIE было всегда

А в арче, наверное, слишком старый gcc 😥

Какой сейчас там?

https://ghc.haskell.org/trac/ghc/ticket/12759

Там еще пара багов прилинковано

http://colah.github.io/posts/2015-09-NN-Types-FP/

http://colah.github.io/posts/2015-09-NN-Types-FP/

Забавно, но, имхо, притянуто за уши

http://fpconf.ru/ как так конфа 3 декабря, а я ни слова ни полслова не видел нигде

В гитере гора инфы😉

где?

https://gitter.im/ruHaskell/home

ясно

Сколько там регистрация стоит?

(\

А как можно сделать ленивый лист IO экшонов? Например, у меня есть IO (Maybe String) и таких бесконечный лист. Как бы мне сделать takeWhile isJust от него, чтобы он весь не эвалюэйтился?

sequence, насколько я понял, до конца эвалюэйтит

http://hackage.haskell.org/package/base-4.9.0.0/docs/System-IO-Unsafe.html#v:unsafeInterleaveIO если я не ошибаюсь

но это некогерный способ

некошерный

да, чет не очень кошерно)

кошерный будет через pipes/conduits

но тут я уже не спец ни разу

а типа нельзя как-нибудь LiftM сделать этого дела

хитрым способом

наверно проще не выеживаться и написать свою функцию без мапа)

loop [] = return [] loop (x:xs) = x >>= \case Nothing -> return x Just v -> fmap (v :) (loop xs) -- если строго или do vs <- unsafeInterleaveIO $ loop xs return (v:vs)

возможно, но lazy IO это всегда шаткая тема

вот я щас так примерно и начал делать

это если не включая мозг

спасибо

У меня даже попроще получилось вроде

щас придумаю как включая мозг, как не все запустить я вижу, а вот как ещё и результат вытащить

getAllEvents locale = getAllEvents' "" [1..] where getAllEvents' acc (x:xs) = do page <- getPage locale x case page of Just p -> getAllEvents' (acc ++ p) xs Nothing -> return acc

где getPage :: String -> Int -> IO (Maybe String)

вроде работает

loop (x:xs) = x >>= \case Nothing -> return x Just v -> fmap (v :) (loop xs) имх проще