Cleanup

src/Dodge/Default/Creature.hs

@@ -26,7 +26,7 @@ defaultCreature =
         , _crInv = IM.empty
         , _crManipulation = Manipulator SelNothing
 --        , _crInvCapacity = 25
-        , _crState = defaultState
+        , _crDamage = []
 --        , _crCorpse = MakeDefaultCorpse
 --        , _crMaterial = Flesh
         , _crPastDamage = 0
@@ -108,10 +108,10 @@ defaultAimingCrit = defaultCreature
 yourDefaultStrideLength :: Int
 yourDefaultStrideLength = 40
 
-defaultState :: CreatureState
-defaultState =
-    CrSt
-        { _csDamage = []
---        , _csSpState = GenCr
---        , _csDropsOnDeath = DropAll
-        }
+--defaultState :: CreatureState
+--defaultState =
+--    CrSt
+--        { _csDamage = []
+----        , _csSpState = GenCr
+----        , _csDropsOnDeath = DropAll
+--        }