From 158e4ddc800521411ffb785a94b6b8bb8ad0b05e Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 24 Dec 2016 01:11:59 +0100 Subject: [PATCH] trying to enable initial draw again --- examples/example03.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/example03.hs b/examples/example03.hs index d565b55..3d296b4 100644 --- a/examples/example03.hs +++ b/examples/example03.hs @@ -76,9 +76,9 @@ load _ = do } drawInit :: Affection UserData () -drawInit = return () - -- UserData{..} <- getAffection - -- present (nodeGraph M.! "over") foreground (GeglRectangle 0 0 800 600) True +drawInit = do + UserData{..} <- getAffection + present (GeglRectangle 0 0 800 600) foreground True draw :: Affection UserData () draw = do