Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -30,6 +30,7 @@ data ItemUse
        { _eqEq :: Equipment
        }
    | NoUse
+  deriving (Eq,Ord,Show,Read)
 data Equipment = Equipment
    { _eqUse        :: Euse --Item -> Creature -> World -> World
    , _eqOnEquip    :: Euse --Item -> Creature -> World -> World
@@ -38,6 +39,7 @@ data Equipment = Equipment
    , _eqParams     :: EquipParams
    , _eqViewDist   :: Maybe Float
    }
+  deriving (Eq,Ord,Show,Read)
 data AimParams = AimParams
    { _aimWeight    :: Int
    , _aimRange     :: Float
@@ -46,23 +48,26 @@ data AimParams = AimParams
    , _aimHandlePos :: Float
    , _aimMuzPos    :: Float
    }
+  deriving (Eq,Ord,Show,Read)
 data AimStance
    = TwoHandTwist
    | TwoHandFlat
    | OneHand
    | LeaveHolstered
  deriving 
-    (Eq,Show,Ord,Enum)
+    (Eq,Show,Ord,Enum,Read)

 data EquipParams
    = NoEquipParams
    | EquipID {_eparamID :: Int}
    | EquipCounter {_eparamInt :: Int}
+  deriving (Eq,Ord,Show,Read)
 data ItZoom = ItZoom 
    { _itZoomMax    :: Float
    , _itZoomMin    :: Float
    , _itZoomFac    :: Float 
    }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''ItemUse
 makeLenses ''AimParams
 makeLenses ''EquipParams