From 257d7f8285627e0e38ad2172123b06807489bdc5 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 21 Dec 2016 04:32:56 +0100 Subject: [PATCH] recent hanges in GEGL --- examples/example01.hs | 2 +- examples/example02.hs | 2 +- examples/example03.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/example01.hs b/examples/example01.hs index a3358ae..bb61e2b 100644 --- a/examples/example01.hs +++ b/examples/example01.hs @@ -52,7 +52,7 @@ load _ = do traceM "checkerboard" over <- G.gegl_node_new_child root G.defaultOverOperation traceM "over" - buffer <- G.gegl_buffer_new (G.GeglRectangle 0 0 800 600) =<< + buffer <- G.gegl_buffer_new (Just $ G.GeglRectangle 0 0 800 600) =<< B.babl_format (B.PixelFormat B.RGBA B.CFfloat) bufsrc <- G.gegl_node_new_child root $ G.bufferSourceOperation [ G.Property "buffer" $ G.PropertyBuffer buffer diff --git a/examples/example02.hs b/examples/example02.hs index 72cc6eb..c1fcfb5 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -42,7 +42,7 @@ load _ = do traceM "checkerboard" over <- G.gegl_node_new_child root G.defaultOverOperation traceM "over" - buffer <- G.gegl_buffer_new (G.GeglRectangle 0 0 800 600) =<< + buffer <- G.gegl_buffer_new (Just $ G.GeglRectangle 0 0 800 600) =<< B.babl_format (B.PixelFormat B.RGBA B.CFfloat) bufsrc <- G.gegl_node_new_child root $ G.bufferSourceOperation [ G.Property "buffer" $ G.PropertyBuffer buffer diff --git a/examples/example03.hs b/examples/example03.hs index 7b579d4..7fd540e 100644 --- a/examples/example03.hs +++ b/examples/example03.hs @@ -45,7 +45,7 @@ load _ = do traceM "checkerboard" over <- G.gegl_node_new_child root G.defaultOverOperation traceM "over" - buffer <- G.gegl_buffer_new (G.GeglRectangle 0 0 800 600) =<< + buffer <- G.gegl_buffer_new (Just $ G.GeglRectangle 0 0 800 600) =<< B.babl_format (B.PixelFormat B.RGBA B.CFfloat) bufsrc <- G.gegl_node_new_child root $ G.bufferSourceOperation [ G.Property "buffer" $ G.PropertyBuffer buffer