Remove generic and flat instances

This commit is contained in:
2022-08-21 22:38:40 +01:00
parent 36c8befa9f
commit 7181046aa3
94 changed files with 312 additions and 423 deletions
+2 -3
View File
@@ -5,7 +5,6 @@
module Dodge.Data.GenParams where
import Flat
import Color
import Control.Lens
import Data.Aeson
@@ -16,10 +15,10 @@ import Dodge.Data.Damage.Type
newtype GenParams = GenParams
{ _sensorCoding :: M.Map DamageType (PaletteColor, DecorationShape)
}
deriving (Eq, Ord, Show, Read, Generic, Flat)
deriving (Eq, Ord, Show, Read) --Generic, Flat)
data DecorationShape = PLUS | SQUARE | CIRCLE | THREELINES
deriving (Eq, Ord, Enum, Show, Read, Generic, Flat)
deriving (Eq, Ord, Enum, Show, Read) --Generic, Flat)
makeLenses ''GenParams
deriveJSON defaultOptions ''GenParams