From 84b1a86f224e50a16efdc50d8755c89287195b65 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 26 Dec 2016 14:19:03 +0100 Subject: [PATCH] cleaning --- examples/example02.hs | 3 +-- examples/example03.hs | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/examples/example02.hs b/examples/example02.hs index 00f538a..b9dd1fb 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -45,9 +45,8 @@ load _ = do traceM "checkerboard" over <- G.gegl_node_new_child root G.defaultOverOperation traceM "over" - buffer@(G.GeglBuffer b) <- G.gegl_buffer_new (Just $ 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) - bufPtr <- new b sink <- G.gegl_node_new_child root $ G.Operation "gegl:copy-buffer" [ G.Property "buffer" $ G.PropertyBuffer buffer ] diff --git a/examples/example03.hs b/examples/example03.hs index 8121058..821fbca 100644 --- a/examples/example03.hs +++ b/examples/example03.hs @@ -47,7 +47,7 @@ load _ = do traceM "checkerboard" over <- G.gegl_node_new_child root G.defaultOverOperation traceM "over" - buffer@(G.GeglBuffer b) <- G.gegl_buffer_new (Just $ 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) sink <- G.gegl_node_new_child root $ G.Operation "gegl:copy-buffer" [G.Property "buffer" $ G.PropertyBuffer buffer