Attempt to make CWorld correct instance of Store

src/Dodge/Data/Button.hs

@@ -3,6 +3,7 @@
 
 module Dodge.Data.Button where
 
+import LinearHelp
 import Color
 import Control.Lens
 import Data.Aeson
@@ -10,6 +11,8 @@ import Data.Aeson.TH
 import Dodge.Data.WorldEffect
 import Geometry.Data
 import Sound.Data
+import TH.Derive
+import Data.Store
 
 data ButtonDraw
     = DefaultDrawButton Color
@@ -65,3 +68,7 @@ deriveJSON defaultOptions ''ButtonDraw
 deriveJSON defaultOptions ''ButtonEvent
 deriveJSON defaultOptions ''Button
 deriveJSON defaultOptions ''ButtonState
+$($(derive [d| instance Deriving (Store ButtonDraw) |]))
+$($(derive [d| instance Deriving (Store ButtonEvent) |]))
+$($(derive [d| instance Deriving (Store Button) |]))
+$($(derive [d| instance Deriving (Store ButtonState) |]))