Cleanup

src/Dodge/Particle/Damage.hs

@@ -2,12 +2,12 @@ module Dodge.Particle.Damage where
 import Dodge.Data
 import Geometry
 
-simpleDam :: DamageType -> Int -> Particle -> Point2 -> [Damage]
-simpleDam dt amount bt p = [ Damage dt amount sp p ep NoDamageEffect ]
-  where
-    sp = _ptPos bt
-    bulVel = _ptVel bt
-    ep = sp +.+ bulVel
+--simpleDam :: DamageType -> Int -> Particle -> Point2 -> [Damage]
+--simpleDam dt amount bt p = [ Damage dt amount sp p ep NoDamageEffect ]
+--  where
+--    sp = _ptPos bt
+--    bulVel = _ptVel bt
+--    ep = sp +.+ bulVel
 simpleDam' :: DamageType -> Int -> Bullet -> Point2 -> [Damage]
 simpleDam' dt amount bt p = [ Damage dt amount sp p ep NoDamageEffect ]
   where