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
+1 -2
View File
@@ -4,7 +4,6 @@
{-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.Item.Location where
import Flat
import Control.Lens
import Data.Aeson
import Data.Aeson.TH
@@ -14,7 +13,7 @@ data ItemLocation
| OnTurret {_ipTuID :: Int}
| OnFloor {_ipFlID :: Int}
| InVoid
deriving (Eq, Show, Read, Ord, Generic, Flat)
deriving (Eq, Show, Ord, Read) --Generic, Flat)
makeLenses ''ItemLocation
deriveJSON defaultOptions ''ItemLocation