p
Наелся. :)
Size: a a a
2020 March 28
2020 March 29
AK
Делаю простенькую игрушку на Halogen. В стейте компонента есть {Seed, Game}, и вся логика генерации нового хода выглядит как
onSomeEvent :: Game → State Seed Game. В экшнах получился следующий код:
handleAction = case _ ofТ.е. на каждое действие игрока, которое влечёт новый ход, я собираю State Seed Game, делаю runState, а потом обновляю стейт компонента. Насколько это фиговый подход? Можно ли это как-то упростить?
DoCommand Shoot r ->
H.modify_ \s ->
let
Tuple newGame newSeed =
runState (onShoot r s.game) s.seed
in
s { command = Nothing
, game = newGame
, seed = newSeed }
AK
по мне норм,
command это эффект?AK
там в
Tuple.Nested есть оператор (/\), им приятнее таплы разбиратьAK
по мне норм,
command это эффект?data PlayerCommand
= Move
| Shoot
AK
Можно ли как-то скрестить мою State с галогеновской, или это не имеет смысла?
AK
AK
вот ты это делаешь :)
AK
Можно ли как-то скрестить мою State с галогеновской, или это не имеет смысла?
это хз, галогеном не пользовался
VK
Можно ли как-то скрестить мою State с галогеновской, или это не имеет смысла?
Я бы это сделал. С другой стороны, обычный State проще тестировать.
AK
ЗП
а зачем свой стейт?
AK
Я бы это сделал. С другой стороны, обычный State проще тестировать.
Это через mtl как-то делается в purescript?
VK
Это через mtl как-то делается в purescript?
mtl у нас нет.
ЗП
mtl у нас нет.
как это нет) transformers, а там все через фандепы
VK
как это нет) transformers, а там все через фандепы
справедливо
AK
а зачем свой стейт?
Новые ходы выглядят как
onSomeEvent :: Game → State Seed Game, чтобы их запустить, надо сконструировать эту самую State Seed Game, или я неправильно понял вопрос?
ЗП
Новые ходы выглядят как
onSomeEvent :: Game → State Seed Game, чтобы их запустить, надо сконструировать эту самую State Seed Game, или я неправильно понял вопрос?
так это не твой стейт, а библиотечный?