Broken: refactor terminals

2022-07-25 00:45:15 +01:00
parent d1bf49319a
commit d219d8d889
25 changed files with 505 additions and 364 deletions
@@ -5,9 +5,8 @@ import ShapePicture.Data
 import Geometry.Data

 import Control.Lens
-
 data CorpseResurrection = NoResurrection
-
+  deriving (Eq,Ord,Show,Read)
 data Corpse = Corpse
    { _cpID  :: Int
    , _cpPos :: Point2
@@ -15,4 +14,5 @@ data Corpse = Corpse
    , _cpSPic :: SPic
    , _cpRes :: CorpseResurrection
    }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Corpse