Attempt to make CWorld correct instance of Store

src/Color.hs

@@ -1,8 +1,13 @@
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
 module Color where
 import GHC.Generics
 import Data.Aeson
 import Geometry
+import LinearHelp
+import TH.Derive
+import Data.Store
 
 data PaletteColor = RED | GREEN | BLUE | YELLOW | CYAN 
     | MAGENTA | ROSE  | VIOLET | AZURE | AQUAMARINE | CHARTREUSE | ORANGE | WHITE | BLACK
@@ -134,3 +139,6 @@ numColor _  = toV4 (1,1,1,1)
 
 light4 :: Color -> Color
 light4 = light . light . light . light
+
+$($(derive [d| instance Deriving (Store PaletteColor) |]))
+-- $($(derive [d| instance Deriving (Store ProximityRequirement) |]))