Store past damages in vector form

src/Dodge/Creature/State/Data.hs

@@ -10,9 +10,10 @@ import Picture.Data
 
 import Control.Lens
 import qualified Data.IntSet as IS
+import qualified Data.Vector as V
 data CreatureState = CrSt 
     { _crDamage  :: [DamageType]
-    , _crPastDamage :: [[DamageType]]
+    , _crPastDamage :: V.Vector [DamageType]
     , _crSpState :: CrSpState
     , _crDropsOnDeath :: CreatureDropType
     }