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
+10
View File
@@ -10,6 +10,8 @@ import Dodge.Data.Item
import Dodge.Data.SoundOrigin
import Geometry.Data
import Sound.Data
import TH.Derive
import Data.Store
data ItCrWdWd
= ItCrWdId
@@ -81,3 +83,11 @@ deriveJSON defaultOptions ''WdBl
deriveJSON defaultOptions ''WdP2f
deriveJSON defaultOptions ''DrWdWd
deriveJSON defaultOptions ''TmWdWd
$($(derive [d| instance Deriving (Store ItCrWdWd) |]))
$($(derive [d| instance Deriving (Store WdWd) |]))
$($(derive [d| instance Deriving (Store WdP2) |]))
$($(derive [d| instance Deriving (Store MdWdWd) |]))
$($(derive [d| instance Deriving (Store WdBl) |]))
$($(derive [d| instance Deriving (Store WdP2f) |]))
$($(derive [d| instance Deriving (Store DrWdWd) |]))
$($(derive [d| instance Deriving (Store TmWdWd) |]))