Remove some deriving clauses

This commit is contained in:
2022-08-22 10:37:24 +01:00
parent df905ce2cc
commit c9c3d8f392
7 changed files with 113 additions and 18 deletions
+1 -1
View File
@@ -49,7 +49,7 @@ data Item = Item
--, _itValue :: ItemValue
, _itParams :: ItemParams
}
deriving (Eq, Show, Read) --Generic, Flat)
--deriving (Eq, Show, Read) --Generic, Flat)
_itUseAimStance :: Item -> AimStance
_itUseAimStance = _aimStance . _heldAim . _itUse