Data-ify creature drawing (partially)

src/Dodge/Creature/PistolCrit.hs

@@ -3,7 +3,6 @@ module Dodge.Creature.PistolCrit
     ) where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Creature.Picture
 import Dodge.Creature.Update
 import Dodge.Creature.Test
 import Dodge.Creature.Action
@@ -24,8 +23,7 @@ import Control.Lens
 
 pistolCrit :: Creature
 pistolCrit = defaultCreature
-    { _crPict = basicCrPict
-    , _crUpdate =  defaultImpulsive
+    { _crUpdate =  defaultImpulsive
         [ performActions
         , watchUpdateStrat
               [ (crHasTargetLOS, \w cr -> StrategyActions (ShootAt 0) 
@@ -44,7 +42,7 @@ pistolCrit = defaultCreature
     , _crRad = 10
     , _crHP = 500
     }
-    & crSkin . skinUpper .~ light4 red
+    & crType . skinUpper .~ light4 red
 chooseMovement :: Creature -> World -> Action
 chooseMovement cr w = chooseMovement' cr w
         `DoActionThen`