Remove some deriving clauses

2022-08-22 10:37:24 +01:00
parent df905ce2cc
commit c9c3d8f392
7 changed files with 113 additions and 18 deletions
@@ -73,17 +73,17 @@ data Creature = Creature
    , _crStatistics :: CreatureStatistics
    , _crCamouflage :: CamouflageStatus
    }
-    deriving (Eq, Show, Read) --Generic, Flat)
+    --deriving (Eq, Show, Read) --Generic, Flat)

 data CreatureCorpse = MakeDefaultCorpse
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Intention = Intention
    { _targetCr :: Maybe Creature
    , _mvToPoint :: Maybe Point2
    , _viewPoint :: Maybe Point2
    }
-    deriving (Eq, Show, Read) --Generic, Flat)
+    --deriving (Eq, Show, Read) --Generic, Flat)

 crSel :: Creature -> Int
 crSel = _iselPos . _crInvSel