Add Read/Show instance for Creature

src/Dodge/Data/Corpse.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Corpse where
+import ShapePicture.Data
+import Geometry.Data
+
+import Control.Lens
+
+data CorpseResurrection = NoResurrection
+
+data Corpse = Corpse
+    { _cpID  :: Int
+    , _cpPos :: Point2
+    , _cpDir :: Float
+    , _cpSPic :: SPic
+    , _cpRes :: CorpseResurrection
+    }
+makeLenses ''Corpse