Hlinting

src/Dodge/Update.hs

@@ -41,7 +41,7 @@ update' :: World -> World
 update' w = case _menuLayers w of
     (ConfigSaveScreen : ls) -> w & menuLayers .~ ls
     (_ : _) -> w    
-    []  ->  let w1 = updateParticles' 
+    []  ->  let w1 = updateParticles 
                     . updateProjectiles 
                     . updateLightSources
                     . zoneClouds
@@ -83,19 +83,22 @@ triggerUpdate w
                 & creatures . ix 0 .~ (_creatures w IM.! 0 & crPos .~ (0,0))
     | otherwise = w
 
-updateSoundQueue = set soundQueue []
-                    . set sounds M.empty
+updateSoundQueue = set soundQueue [] . set sounds M.empty
 
+updateLightSources :: World -> World
 updateLightSources w = set tempLightSources (catMaybes tlss) w'
-    where (w',tlss) = mapAccumR (\a b -> _tlsUpdate b a b) w $ _tempLightSources w
+  where 
+    (w',tlss) = mapAccumR (\a b -> _tlsUpdate b a b) w $ _tempLightSources w
 
 updateProjectiles w = IM.foldr' _pjUpdate w $ _projectiles w
 
-updateParticles' :: World -> World
-updateParticles' w = 
-    set particles' (catMaybes ps) w'
+{-
+Apply internal particle updates, delete 'Nothing's.
+ -}
+updateParticles :: World -> World
+updateParticles w = set particles (catMaybes ps) w'
   where 
-    (w',ps) = mapAccumR (\a b -> _ptUpdate' b a b) w $ _particles' w
+    (w',ps) = mapAccumR (\a b -> _ptUpdate' b a b) w $ _particles w
 
 updateCreatures :: World -> World
 updateCreatures w = f $ set randGen newG $ set creatures (IM.mapMaybe id crs) w