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

Add Store instances

Browse Source
This commit is contained in:
justin
2022-08-21 12:21:05 +01:00
parent 1ce7d4a72d
commit dd62e30026
92 changed files with 465 additions and 255 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data/Machine.hs
+5 -3
View File
@@ -13,6 +13,8 @@ module Dodge.Data.Machine (
module Dodge.Data.GenParams,
) where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import LinearHelp ()
@@ -48,7 +50,6 @@ data Machine = Machine
}
deriving (Eq, Show, Read, Generic)
--hderiving (Eq, Show, Read, Generic, Flat)
--instance Binary Machine
data MachineType
= McStatic
@@ -57,7 +58,6 @@ data MachineType
| McTurret Turret
deriving (Eq, Show, Read, Generic)
--hderiving (Eq, Show, Read, Generic, Flat)
--instance Binary MachineType
data Turret = Turret
{ _tuWeapon :: Item
@@ -67,7 +67,6 @@ data Turret = Turret
}
deriving (Eq, Show, Read, Generic)
--hderiving (Eq, Show, Read, Generic, Flat)
--instance Binary Turret
makeLenses ''Machine
makeLenses ''Turret
@@ -75,3 +74,6 @@ makePrisms ''MachineType
deriveJSON defaultOptions ''Machine
deriveJSON defaultOptions ''MachineType
deriveJSON defaultOptions ''Turret
$($(derive [d| instance Deriving (Store Turret ) |]))
$($(derive [d| instance Deriving (Store Machine ) |]))
$($(derive [d| instance Deriving (Store MachineType) |]))