Attempt to make CWorld correct instance of Store
This commit is contained in:
@@ -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) |]))
|
||||
|
||||
Reference in New Issue
Block a user