Report a paste

Please put a quick comment for the admin.

If it looks like spam, the admin will mark it as spam so that the spam filter picks it up in the future.

If the paste contains something private or offensive, it'll probably just be deleted.

No title

runSuccessFn success event2 state = do
  case state.event of
    event2 -> liftEff $ log $ state.event <> " - " <> event2
    _     -> 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"