justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Working compilation with some Flat instances

Browse Source
This commit is contained in:
justin
2022-08-21 10:25:00 +01:00
parent b227b1e957
commit 386a2b4732
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data/Machine.hs
+6 -3
View File
@@ -45,14 +45,16 @@ data Machine = Machine
, _mcCloseSound :: Maybe SoundID , _mcCloseSound :: Maybe SoundID
, _mcWidth :: Float , _mcWidth :: Float
} }
deriving (Eq, Show, Read, Generic, Flat) deriving (Eq, Show, Read, Generic)
--hderiving (Eq, Show, Read, Generic, Flat)
data MachineType data MachineType
= McStatic = McStatic
| McTerminal | McTerminal
| McSensor Sensor | McSensor Sensor
| McTurret Turret | McTurret Turret
deriving (Eq, Show, Read, Generic, Flat) deriving (Eq, Show, Read, Generic)
--hderiving (Eq, Show, Read, Generic, Flat)
data Turret = Turret data Turret = Turret
{ _tuWeapon :: Item { _tuWeapon :: Item
@@ -60,7 +62,8 @@ data Turret = Turret
, _tuFireTime :: Int , _tuFireTime :: Int
, _tuDir :: Float , _tuDir :: Float
} }
deriving (Eq, Show, Read, Generic, Flat) deriving (Eq, Show, Read, Generic)
--hderiving (Eq, Show, Read, Generic, Flat)
makeLenses ''Machine makeLenses ''Machine
makeLenses ''Turret makeLenses ''Turret