Add Read/Show instance for Creature

src/Dodge/Creature.hs

@@ -27,9 +27,6 @@ import Dodge.Item.Weapon
 import Dodge.Item.Equipment
 import Dodge.Item.Consumable
 import Dodge.Creature.Inanimate
-import Dodge.Creature.Picture
---import Dodge.Creature.ChooseTarget
---import Dodge.Item
 import Picture
 import Geometry.Data
 import qualified IntMapHelp as IM
@@ -102,7 +99,7 @@ startCr = defaultCreature
     , _crHP = 1000
     , _crMaxHP = 1500
     , _crInv = startInventory 
-    , _crCorpse = basicCrCorpse
+    , _crCorpse = MakeDefaultCorpse
     , _crFaction = PlayerFaction
     , _crMvType = MvWalking yourDefaultSpeed
     }