import Affection import Affection.Render main :: IO () main = withAllAffection $ withDefaultWindow "test" $ do changeColor $ RGBA 255 255 255 255 clear present liftIO $ delaySec 2