Add Read/Show instance for Creature

src/Dodge/Data/CreatureEffect.hs

@@ -1,37 +1,50 @@
 module Dodge.Data.CreatureEffect where
 
 data WdCrCr = NoCreatureEffect
+  deriving (Eq,Ord,Show,Read)
 
 data CrWdImp = NoCrWdImp
+  deriving (Eq,Ord,Show,Read)
 
 data CrWdWd = CrWdWdId
+  deriving (Eq,Ord,Show,Read)
 
 data IntImp = NoIntImp
+  deriving (Eq,Ord,Show,Read)
 
 data CrImp = NoCrImp
     | TurnTowardCr Float -- turn amount
+  deriving (Eq,Ord,Show,Read)
 
 data P2Imp = P2ImpNo
+  deriving (Eq,Ord,Show,Read)
 
 data WdCrBl = WdCrTrue
     | WdCrBlfromCrBl CrBl
     | WdCrNegate WdCrBl
     | WdCrLOSTarget
     | WdCrSafeDistFromTarget Float
+  deriving (Eq,Ord,Show,Read)
 
 data CrBl = CrCanShoot
     | CrIsReloading
     | CrIsAiming
+  deriving (Eq,Ord,Show,Read)
 
 data MCrAc = MCrNoAction
+  deriving (Eq,Ord,Show,Read)
 
 data CrAc = CrTurnAround
     | CrFleeFromTarget
+  deriving (Eq,Ord,Show,Read)
 
 data P2Ac = P2NoAction
+  deriving (Eq,Ord,Show,Read)
 
 data MP2Ac = MP2NoAction
+  deriving (Eq,Ord,Show,Read)
 
 data CrWdAc = CrWdBFSThenReturn Int
     | ChooseMovementSpreadGun
     | ChooseMovementLtAuto
+  deriving (Eq,Ord,Show,Read)