Cleanup

2021-10-31 13:34:22 +00:00
parent a6867b1fad
commit 8dd6379d8e
8 changed files with 68 additions and 105 deletions
@@ -25,7 +25,7 @@ import qualified Data.Sequence as Seq
 --import qualified Data.IntMap.Strict as IM

 aLaser :: Creature -> World -> World
-aLaser cr w = over particles (makeLaserAt phaseV pos dir : ) w
+aLaser cr = particles %~ (makeLaserAt phaseV pos dir : )
  where 
    pos = _crPos cr +.+ ((_crRad cr +3) *.* unitVectorAtAngle dir) 
    dir = _crDir cr