Cleanup

src/Dodge/Projectile/Update.hs

@@ -209,8 +209,6 @@ doThrust pj smoke w =
     (sparkD, _) = randomR (-0.2, 0.2) $ _randGen w
     r1 = randInCirc 10 & evalState $ _randGen w
 
--- there doesn't seem to be a more sensible way to filter the first occurence of
--- a list than deleteBy
 doBarrelSpin :: Int -> Float -> Projectile -> World -> World
 doBarrelSpin cid i pj w =
     w & cWorld . lWorld . projectiles . ix pjid . pjSpin .~ newSpin