9 lines
175 B
Haskell
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
|