Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -27,6 +27,7 @@ data ItEffect
        , _ieDrop    :: ItDropEffect --Item -> Creature -> World -> World
        , _ieMID     :: Maybe Int
        }
+  deriving (Eq,Ord,Show,Read)

 data ItInvEffect = NoInvEffect
    | RewindEffect
@@ -35,6 +36,9 @@ data ItInvEffect = NoInvEffect
    | CreateHeldLight
    | CreateShieldWall
    | RemoveShieldWall
+  deriving (Eq,Ord,Show,Read)
 data ItFloorEffect = NoFloorEffect
+  deriving (Eq,Ord,Show,Read)
 data ItDropEffect = NoDropEffect
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''ItEffect