Attempt to make CWorld correct instance of Store

src/Dodge/Data/LightSource.hs

@@ -3,12 +3,16 @@
 
 module Dodge.Data.LightSource where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
+import TH.Derive
+import Data.Store
 
 data LightSourceDraw = DefaultLightSourceDraw
+    | HackLightSourceDraw
     deriving (Eq, Ord, Show, Read)
 
 data TLSIntensity
@@ -53,3 +57,9 @@ deriveJSON defaultOptions ''TLSUpdate
 deriveJSON defaultOptions ''LSParam
 deriveJSON defaultOptions ''LightSource
 deriveJSON defaultOptions ''TempLightSource
+$($(derive [d| instance Deriving (Store LightSourceDraw) |]))
+$($(derive [d| instance Deriving (Store TLSIntensity) |]))
+$($(derive [d| instance Deriving (Store TLSUpdate) |]))
+$($(derive [d| instance Deriving (Store LSParam) |]))
+$($(derive [d| instance Deriving (Store LightSource) |]))
+$($(derive [d| instance Deriving (Store TempLightSource) |]))