https://combot.org/chat/-1001043143583 Ссылки на полезные ресурсы: https://ruhaskell.org/links.html ; Информация о мероприятиях: https://gist.github.com/qnikst/a96cac661be80d126d0829f2ced1916e
https://hackage.haskell.org/package/megaparsec-9.7.0/docs/Text-Megaparsec-Stream.html#t:Stream
Читать полностью…Сигтерм, кстати, по умолчанию такого не делает, только сигинт
Читать полностью…Немного дурацкий вопрос: как сделать, чтобы handler SIGTERM/SIGINT делал то же, что он обычно бы и делал без моего кода?
Вот делаю я
installHandler sigTERM (CatchOnce $ closeHandler lmdbEnv) Nothing
@lonokhov на concurrently сделано так что должно сразу прибить
Читать полностью…Ещё бы блин на вектор новый перейти и везде Vector Strict использовать
Читать полностью…If a worker throws a synchronous exception, it
-- will be propagated to the caller.?
-- | Concurrent map over a list of values, using a bounded number of threads.
mapConcurrentlyBounded
ого. давно в асинк фичей на завозили https://github.com/simonmar/async/pull/168
Читать полностью…А чего он брошенный? Там просто релизов не было. Митчел какие-то коммиты 9 месяцев назад делал
Читать полностью…Кто-нибудь заморачивался с классом для строкоподных типов чтобы были методы для длины, dropwhile итд.
Читать полностью…сам спросил — сам ответил
tid <- myThreadId
_ <- installHandler sigTERM (CatchOnce $ closeHandler lmdbEnv tid) Nothing
...
where
closeHandler lmdbEnv tid = do
...
throwTo tid AsyncCancelled
Я тоже с осторожностью смотрю на подобное после ковыряний с оптимизатором
Читать полностью…Интересно, а вот эти его удаления лямбд не сломали оптимизации в случае частичных аппликаций?
Читать полностью…Не прошло и миллиона лет, unliftio стало менее нужно?
Ещё бы кто операции с FS вытащил
ладно, тегсуп действительно оказался самым простым:
findImage (TagOpen "meta" [("property", "og:image"), ("content", img)]) = First $ Just img
findImage _ = First $ Nothing