Add Binary instances

src/Color.hs

@@ -6,6 +6,7 @@
 
 module Color where
 
+import Data.Binary
 import Flat
 import Data.Aeson
 import Geometry
@@ -27,6 +28,7 @@ data PaletteColor
     | WHITE
     | BLACK
     deriving (Eq, Ord, Enum, Show, Read, Generic, Flat)
+instance Binary PaletteColor
 
 instance ToJSON PaletteColor where
     toEncoding = genericToEncoding defaultOptions