pituicat/examples/example01.hs

10 lines
175 B
Haskell

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