Start to move damage effects of bullets into a more sensible place

src/Dodge/Creature/State/Data.hs

@@ -4,18 +4,10 @@ module Dodge.Creature.State.Data
   where
 --import Geometry
 import Geometry.Data
-import Dodge.Data.DamageType
 import Color
 
 import Control.Lens
 import qualified Data.IntSet as IS
-import qualified Data.Vector as V
-data CreatureState = CrSt 
-    { _crDamage  :: [Damage]
-    , _crPastDamage :: V.Vector [Damage]
-    , _crSpState :: CrSpState
-    , _crDropsOnDeath :: CreatureDropType
-    }
 data CreatureDropType
     = DropAll
     | DropAmount Int
@@ -43,5 +35,4 @@ data CrGroup
     | CrGroupID { _crGroupID :: Int }
     | ShieldGroup
   deriving (Eq, Show)
-makeLenses ''CreatureState
 makeLenses ''CrSpState