removing old code

src/Affection/Particle.hs

@@ -36,7 +36,8 @@ updateParticle
   -- -> Affection us [Maybe Particle]
   -> Affection us (Maybe Particle)
     -- ^ resulting 'Particle'
-updateParticle time funct pa = do
+updateParticle time funct pa =
+  do
     now <- elapsedTime <$> get
     if particleCreation pa + particleTimeToLive pa < now
     then do
@@ -60,37 +61,6 @@ updateParticle time funct pa = do
     else do
       np <- Just <$> funct time pa
       return $ np
--- updateParticle time funct acc@[p] pa = do
---   now <- elapsedTime <$> get
---   if particleCreation pa + particleTimeToLive pa > now
---   then do
---     liftIO $ G.gegl_node_drop $ particleRootNode pa
---     return $ Nothing : acc
---   else do
---     when (not $ isNothing p) $ do
---       -- liftIO $ traceIO "linking second node in list"
---       liftIO $ G.gegl_node_link
---         (particleStackCont pa)
---         (particleStackCont $ fromJust p)
---     np <- Just <$> funct time pa
---     return $ np : acc
--- updateParticle time funct acc@(p:ps) pa = do
---   now <- elapsedTime <$> get
---   if particleCreation pa + particleTimeToLive pa > now
---   then do
---     liftIO $ G.gegl_node_drop $ particleRootNode pa
---     return $ Nothing : acc
---   else do
---     when (isNothing p) $ do
---       let mnl = nextLiving ps
---       maybe
---         (return ())
---         (\nl -> do
---           -- liftIO $ traceIO "linking nth node on list"
---           liftIO $ G.gegl_node_link (particleStackCont pa) (particleStackCont nl))
---         mnl
---     np <- Just <$> funct time pa
---     return $ np : acc
 
 -- | Get the next living particle from a list
 nextLiving