Cleanup

2025-10-29 12:18:55 +00:00
parent c9ec962575
commit 40c1907689
5 changed files with 11 additions and 16 deletions
@@ -128,7 +128,6 @@ tryThrust pj = fromMaybe id $ do

 doThrust :: Projectile -> Maybe RocketSmoke -> World -> World
 doThrust pj smoke w =
--doThrust pj _ w =
    w
        & randGen .~ g
        & cWorld . lWorld . projectiles . ix i . pjVel . _xy %~ (\v -> accel + frict *^ v)