YS
проще всего продать в одном городе и купить такое же в другом
Не уверен
Size: a a a
2020 November 15
YS
Там не так далеко между городами
DM
есть еще небольшой вопрос
пишу стэк на стейт монаде, реализовал функцию
теперь нужно для какого-то списка добавить все элементы в стэк и вернуть состояние
то есть что-то типа
как наиболее адекватно это сделать?
пишу стэк на стейт монаде, реализовал функцию
push которая соотв.образом меняет состояниетеперь нужно для какого-то списка добавить все элементы в стэк и вернуть состояние
то есть что-то типа
list.forEach(push)как наиболее адекватно это сделать?
KV
есть еще небольшой вопрос
пишу стэк на стейт монаде, реализовал функцию
теперь нужно для какого-то списка добавить все элементы в стэк и вернуть состояние
то есть что-то типа
как наиболее адекватно это сделать?
пишу стэк на стейт монаде, реализовал функцию
push которая соотв.образом меняет состояниетеперь нужно для какого-то списка добавить все элементы в стэк и вернуть состояние
то есть что-то типа
list.forEach(push)как наиболее адекватно это сделать?
traverse
AV
Кстати сейчас пишу валидацию конфига и подумал, что тут действительно райтер можно использовать. Для фиксации пути до значения в конфиге
Для валиадации лучшие Validation/Chronicle
DB
Мне monad-validate нравится
AV
Не понмю чего меня там не устроило
DM
traverse
вроде вышло написать через
forM_ но спасибоKV
Ну это один фиг, приблизительно
DB
Блин, райтер не подошёл всё же) Стейт пришлось юзать)
AV
ещё Accum есть между
YS
Вспомнил что есть dynamic statements, надо будет подумать завтра, мб через них смогу сделать решение получше для пагинации
AV
ты там какой-то ужас хочешь
YS
Пагинацию хочу(
YS
Самую обычную
YS
Есть плохо сделанная, но работает
DB
Скажите, это нормально, или я _перестарался_?
runApp :: AppConfig -> AppState -> Conn -> LogFunctionT IO () -> Application a -> IO (Either AppException a)
runApp config state connection logFunction app = flip evalLoggerT logFunction . flip evalPQ connection . runExceptT . flip evalStateT state . flip runReaderT config $ app
MK
че эт тут никто депендент хачкель не обсуждает
Я пытался вбросить
MK
Скажите, это нормально, или я _перестарался_?
runApp :: AppConfig -> AppState -> Conn -> LogFunctionT IO () -> Application a -> IO (Either AppException a)
runApp config state connection logFunction app = flip evalLoggerT logFunction . flip evalPQ connection . runExceptT . flip evalStateT state . flip runReaderT config $ app
Да норм)