No title

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
runSuccessFn success event state = do
  case state.event of
    event -> liftEff $ log $ state.event <> " - " <> event
    _     -> liftEff $ log state.event



--showUI :: forall e a. a -> String -> Aff e a
showUI screen event = makeAff (\error success -> showUIAff (runSuccessFn success event) error screen)

main = launchAff do
  state <- showUI INIT_UI "step2"
  liftEff $ log state.event
  state <- showUI INTRO_SCREEN "stepk"
  state <- showUI LOADING_SCREEN "step3"
  state <- showUI INTRO_SCREEN "step4"
  state <- showUI LOADING_SCREEN "step5"