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