Go back to JSON encoding

src/Color.hs

@@ -6,9 +6,6 @@
 
 module Color where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import Data.Aeson
 import Geometry
@@ -30,7 +27,6 @@ data PaletteColor
     | WHITE
     | BLACK
     deriving (Eq, Ord, Enum, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store PaletteColor) |]))
 
 instance ToJSON PaletteColor where
     toEncoding = genericToEncoding defaultOptions