Remove some deriving clauses

This commit is contained in:
2022-08-22 10:56:53 +01:00
parent c9c3d8f392
commit 054ec84fcd
6 changed files with 33 additions and 22 deletions
+5 -4
View File
@@ -49,7 +49,7 @@ data ItemUse
}
| CraftUse
{_useAmount :: ItAmount}
deriving (Eq, Show, Read) --Generic, Flat)
--deriving (Eq, Show, Read) --Generic, Flat)
data AimParams = AimParams
{ _aimWeight :: Int
@@ -59,21 +59,22 @@ data AimParams = AimParams
, _aimHandlePos :: Float
, _aimMuzPos :: Float
}
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data AimStance
= TwoHandTwist
| TwoHandFlat
| OneHand
| LeaveHolstered
deriving (Eq, Show, Ord, Enum, Read) --Generic, Flat)
deriving (Eq)
--deriving (Eq, Show, Ord, Enum, Read) --Generic, Flat)
data ItZoom = ItZoom
{ _itZoomMax :: Float
, _itZoomMin :: Float
, _itZoomFac :: Float
}
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
makeLenses ''ItemUse
makeLenses ''AimParams