Attempt to make CWorld correct instance of Store

2022-08-20 15:53:37 +01:00
parent e1a555ea02
commit 8571ab9254
89 changed files with 570 additions and 19 deletions
@@ -9,6 +9,8 @@ import Data.Aeson.TH
 import Dodge.Data.Item.Use.Consumption.Ammo
 import Geometry.Data

+import TH.Derive
+import Data.Store
 data Proj
    = Shell
        { _prjPos :: Point2
@@ -29,3 +31,4 @@ data Proj

 makeLenses ''Proj
 deriveJSON defaultOptions ''Proj
+$($(derive [d| instance Deriving (Store Proj) |]))