Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -18,9 +18,11 @@ data HeldUse = HeldDoNothing
    | HeldSonicWave
    | HeldForceField
    | HeldShatter
+  deriving (Eq,Ord,Show,Read)

 data Cuse = CDoNothing
    | CHeal Int
+  deriving (Eq,Ord,Show,Read)

 data Euse = EDoNothing
    | EDetector Detector
@@ -32,13 +34,14 @@ data Euse = EDoNothing
    | EonWristShield

    | EoffWristShield
-
+  deriving (Eq,Ord,Show,Read)
 data Luse = LDoNothing
    | LRewind
    | LShrink
    | LBlink
    | LUnsafeBlink
    | LBoost
+  deriving (Eq,Ord,Show,Read)

 data HeldMod = HeldModNothing
    | PoisonSprayerMod
@@ -72,3 +75,4 @@ data HeldMod = HeldModNothing
    | SmgMod
    | RevolverXMod
    | BangConeMod
+  deriving (Eq,Ord,Show,Read)