Add Read/Show instance for Creature

2022-07-22 10:44:54 +01:00
parent 4c5218c633
commit 6b69fc1684
35 changed files with 345 additions and 225 deletions
@@ -12,10 +12,11 @@ data CreatureDropType
    = DropAll
    | DropAmount Int
    | DropSpecific [Int]
+ deriving (Eq,Ord,Show,Read)
 data CrSpState 
    = Barrel { _piercedPoints :: [Point2]}
    | GenCr
-  deriving (Eq,Show,Ord)
+ deriving (Eq,Ord,Show,Read)
 data Faction 
    = GenericFaction Int
    | ZombieFaction
@@ -25,7 +26,7 @@ data Faction
    | NoFaction
    | ColorFaction Color
    | PlayerFaction
-  deriving (Eq,Show)
+ deriving (Eq,Ord,Show,Read)
 data CrGroup
    = LoneWolf
    | Swarm 
@@ -34,5 +35,5 @@ data CrGroup
        }
    | CrGroupID { _crGroupID :: Int }
    | ShieldGroup
-  deriving (Eq, Show)
+ deriving (Eq,Ord,Show,Read)
 makeLenses ''CrSpState