link all new particles

examples/example03.hs

@@ -4,8 +4,11 @@ import Affection
 import qualified SDL
 import qualified GEGL as G
 import qualified BABL as B
+
 import qualified Data.Map.Strict as M
 
+import Control.Monad (when)
+
 import Foreign.C.Types
 
 import System.Random (randomRIO)
@@ -154,6 +157,10 @@ update sec = do
                     }) : (psParts $ partsys ud)
                 }
             }
+          when (not $ null $ psParts $ partsys ud) $
+            liftIO $ G.gegl_node_link
+              tempOver
+              (particleStackCont $ head $ psParts $ partsys ud)
         else
           return ()
       SDL.WindowClosedEvent _ -> do