Add Store instances

src/Dodge/Data/Button.hs

@@ -5,6 +5,8 @@
 
 module Dodge.Data.Button where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import LinearHelp ()
@@ -21,7 +23,6 @@ data ButtonDraw
     | DefaultDrawSwitch Color Color
     | DrawNoButton
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary ButtonDraw
 
 data ButtonEvent
     = ButtonDoNothing
@@ -48,7 +49,6 @@ data ButtonEvent
     | ButtonAccessTerminal
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
-    --instance Binary ButtonEvent
 
 data Button = Button
     { _btPict :: ButtonDraw --Button -> SPic
@@ -64,11 +64,9 @@ data Button = Button
     }
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
-    --instance Binary Button 
 
 data ButtonState = BtOn | BtOff | BtNoLabel
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary ButtonState 
 
 makeLenses ''Button
 makeLenses ''ButtonEvent
@@ -76,3 +74,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 ) |]))