affection/examples/example01.hs
2016-05-29 18:02:03 +02:00

9 lines
175 B
Haskell

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