Remove some deriving clauses
This commit is contained in:
@@ -43,7 +43,7 @@ data Machine = Machine
|
||||
, _mcCloseSound :: Maybe SoundID
|
||||
, _mcWidth :: Float
|
||||
}
|
||||
deriving (Eq, Show, Read) --, Generic)
|
||||
--deriving (Eq, Show, Read) --, Generic)
|
||||
--hderiving (Eq, Show, Read) --Generic, Flat)
|
||||
|
||||
data MachineType
|
||||
@@ -51,7 +51,7 @@ data MachineType
|
||||
| McTerminal
|
||||
| McSensor Sensor
|
||||
| McTurret Turret
|
||||
deriving (Eq, Show, Read) --, Generic)
|
||||
--deriving (Eq, Show, Read) --, Generic)
|
||||
--hderiving (Eq, Show, Read) --Generic, Flat)
|
||||
|
||||
data Turret = Turret
|
||||
@@ -60,7 +60,7 @@ data Turret = Turret
|
||||
, _tuFireTime :: Int
|
||||
, _tuDir :: Float
|
||||
}
|
||||
deriving (Eq, Show, Read) --, Generic)
|
||||
--deriving (Eq, Show, Read) --, Generic)
|
||||
--hderiving (Eq, Show, Read) --Generic, Flat)
|
||||
|
||||
makeLenses ''Machine
|
||||
|
||||
Reference in New Issue
Block a user