Attempt to make CWorld correct instance of Store

This commit is contained in:
2022-08-20 15:53:37 +01:00
parent e1a555ea02
commit 8571ab9254
89 changed files with 570 additions and 19 deletions
+4
View File
@@ -3,10 +3,13 @@
module Dodge.Data.LinearShockwave where
import LinearHelp
import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Geometry.Data
import TH.Derive
import Data.Store
data LinearShockwave = LinearShockwave
{ _lwPos :: Point2
@@ -18,3 +21,4 @@ data LinearShockwave = LinearShockwave
makeLenses ''LinearShockwave
deriveJSON defaultOptions ''LinearShockwave
$($(derive [d| instance Deriving (Store LinearShockwave) |]))