module Rasa (rasa) where
import Rasa.Internal.Editor
import Rasa.Internal.Action
import Rasa.Internal.Events
import Rasa.Internal.Scheduler
import Control.Concurrent.Async
import Control.Lens
import Control.Monad
import Control.Monad.IO.Class
import Data.Default (def)
import Data.List
rasa :: Action () -> IO ()
rasa initilize =
evalAction def $ do
initilize
dispatchEvent Init
eventLoop
dispatchEvent Exit
eventLoop :: Action ()
eventLoop = do
dispatchEvent BeforeRender
dispatchEvent OnRender
dispatchEvent AfterRender
dispatchEvent BeforeEvent
asyncActions <- use asyncs
(done, action) <- liftIO $ waitAny asyncActions
asyncs %= delete done
action
isExiting <- use exiting
unless isExiting eventLoop