Remove some deriving clauses

2022-08-22 10:56:53 +01:00
parent c9c3d8f392
commit 054ec84fcd
6 changed files with 33 additions and 22 deletions
@@ -22,13 +22,13 @@ data EquipEffect = EquipEffect
    , _eeParams :: EquipParams
    , _eeViewDist :: Maybe Float
    }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data EquipParams
    = NoEquipParams
    | EquipID {_eparamID :: Int}
    | EquipCounter {_eparamInt :: Int}
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''EquipEffect
 makeLenses ''EquipParams