Work towards making world read/showable

src/Dodge/Data/ActionPlan.hs

@@ -4,13 +4,11 @@
 module Dodge.Data.ActionPlan where
 import Dodge.Creature.Stance.Data
 import Dodge.Data.CreatureEffect
-import Dodge.ShortShow
+--import Dodge.ShortShow
 import Control.Lens
 import Geometry.Data
-import Control.Monad.State
-import System.Random
 import Sound.Data
-import GHC.Generics
+--import GHC.Generics
 data ActionPlan
     = Inanimate
     | ActionPlan

src/Dodge/Data/Creature.hs

@@ -17,7 +17,6 @@ import Dodge.Creature.Memory.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.State.Data
 import Dodge.Equipment.Data
-import ShapePicture
 import Geometry.Data
 import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M