indent uniformity

This commit is contained in:
nek0 2017-03-18 13:50:34 +01:00
parent 55d671a81f
commit ec4c0fccc8

View file

@ -36,8 +36,8 @@ load _ = do
traceM "new root node" traceM "new root node"
checkerboard <- G.gegl_node_new_child root $ G.checkerboardOperation $ checkerboard <- G.gegl_node_new_child root $ G.checkerboardOperation $
props $ do props $ do
prop "color1" $ G.RGBA 0.4 0.4 0.4 1 prop "color1" $ G.RGBA 0.4 0.4 0.4 1
prop "color2" $ G.RGBA 0.6 0.6 0.6 1 prop "color2" $ G.RGBA 0.6 0.6 0.6 1
traceM "checkerboard" traceM "checkerboard"
over <- G.gegl_node_new_child root G.defaultOverOperation over <- G.gegl_node_new_child root G.defaultOverOperation
traceM "over" traceM "over"
@ -49,16 +49,16 @@ load _ = do
traceM "buffer-sink" traceM "buffer-sink"
rect <- G.gegl_node_new_child root $ G.Operation "gegl:rectangle" $ rect <- G.gegl_node_new_child root $ G.Operation "gegl:rectangle" $
props $ do props $ do
prop "x" (0::Double) prop "x" (0::Double)
prop "y" (0::Double) prop "y" (0::Double)
prop "width" (20::Double) prop "width" (20::Double)
prop "height" (20::Double) prop "height" (20::Double)
prop "color" $ G.RGBA 1 0 0 0.5 prop "color" $ G.RGBA 1 0 0 0.5
traceM "rect" traceM "rect"
crop <- G.gegl_node_new_child root $ G.Operation "gegl:crop" $ crop <- G.gegl_node_new_child root $ G.Operation "gegl:crop" $
props $ do props $ do
prop "width" (800::Double) prop "width" (800::Double)
prop "height" (600::Double) prop "height" (600::Double)
G.gegl_node_link_many [checkerboard, over, crop, sink] G.gegl_node_link_many [checkerboard, over, crop, sink]
_ <- G.gegl_node_connect_to rect "output" over "aux" _ <- G.gegl_node_connect_to rect "output" over "aux"
traceM "connections made" traceM "connections made"