Вроде как мне подходит, но может я не знаю о каких то сторонних её эффектах
Мы тут не делаем сторонних эффектов
лучше скажи че ты от неё ожидаеш
остановки выполнения треда в случае невыполнения условий middleCalls :: UTCTime -> IO () middleCalls x | (secondsToDiffTime 52_200 < (utctDayTime x)) && ((utctDayTime x) < secondsToDiffTime 52_201) = print "Done!" | otherwise = yield
Обсуждают сегодня