Remove generic and flat instances
This commit is contained in:
@@ -5,7 +5,6 @@
|
||||
|
||||
module Dodge.Data.Equipment.Misc where
|
||||
|
||||
import Flat
|
||||
import Data.Aeson
|
||||
import Data.Aeson.TH
|
||||
|
||||
@@ -16,7 +15,7 @@ data EquipSite
|
||||
| GoesOnWrist
|
||||
| GoesOnLegs
|
||||
| GoesOnSpecial
|
||||
deriving (Eq, Ord, Show, Read, Generic, Flat)
|
||||
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
||||
|
||||
data EquipPosition
|
||||
= OnHead
|
||||
@@ -26,7 +25,7 @@ data EquipPosition
|
||||
| OnRightWrist
|
||||
| OnLegs
|
||||
| OnSpecial
|
||||
deriving (Eq, Ord, Show, Read, Generic, Flat)
|
||||
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
||||
|
||||
instance ToJSONKey EquipPosition
|
||||
|
||||
|
||||
Reference in New Issue
Block a user