Add Read/Show instance for Creature

src/Dodge/Creature/SwarmCrit.hs

@@ -3,7 +3,6 @@ module Dodge.Creature.SwarmCrit
     ) where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Creature.Picture
 import Picture
 
 import Control.Lens
@@ -13,7 +12,7 @@ swarmCrit = defaultCreature
     { _crHP = 1
     , _crRad = 2
     , _crMass = 2
-    , _crCorpse = basicCrCorpse
+    , _crCorpse = MakeDefaultCorpse
     , _crFaction = ColorFaction yellow
     , _crMeleeCooldown = 0
     }