Store past damages in vector form

src/Dodge/Default.hs

@@ -18,6 +18,7 @@ import Picture
 
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
+import qualified Data.Vector as V
 import Data.List
 import Data.Monoid
 
@@ -58,7 +59,7 @@ defaultCreature = Creature
 defaultState :: CreatureState
 defaultState = CrSt 
     { _crDamage = []
-    , _crPastDamage = []
+    , _crPastDamage = V.fromList $ replicate 20 []
     , _crSpState = GenCr
     , _crDropsOnDeath = DropAll
     }