Cleanup

src/Dodge/Projectile/Create.hs

@@ -43,8 +43,6 @@ createShell (p,q) mdetonator mscreen stab pjtype payload muz cr w =
                 , _pjPayload = payload
                 , _pjTimer = lifespan
                 , _pjBarrelSpin = bs
---                , _pjUpdates =
---                    anyspin
                 , _pjType = pjtype
                 , _pjDetonatorID = mdetonator
                 , _pjScreenID = mscreen

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