crap3.purs

  eval :: Query ~> H.ComponentDSL FrontendState Query Message (Aff _)
  
  -- Handle initialization
  eval (Init next) = do
    -- Initialize YouTube player
    player <- liftAff $ YT.initPlayer "player"
      -- Player's 'onReady' handler, here we should call updatePlayerState with the *current* state
      (\p -> do
        let (state :: FrontendState) = H.get -- This won't work as we're in Eff here... :(
        launchAff_ $ updatePlayerState state p
      )