Add Read instances

src/Dodge/Data/Creature.hs

@@ -21,6 +21,8 @@ import ShapePicture
 import Geometry.Data
 import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
+
+import Control.Lens
 data Creature = Creature
     { _crPos            :: Point2
     , _crOldPos         :: Point2
@@ -73,3 +75,6 @@ data Intention = Intention
     , _mvToPoint    :: Maybe Point2
     , _viewPoint    :: Maybe Point2
     }
+makeLenses ''Creature
+makeLenses ''Intention
+makeLenses ''Corpse