Add Binary instances

src/Dodge/Data/Button.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Button where
 
+import Data.Binary
 import Flat
 import LinearHelp ()
 import Color
@@ -20,6 +21,7 @@ data ButtonDraw
     | DefaultDrawSwitch Color Color
     | DrawNoButton
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ButtonDraw
 
 data ButtonEvent
     = ButtonDoNothing
@@ -46,6 +48,7 @@ data ButtonEvent
     | ButtonAccessTerminal
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary ButtonEvent
 
 data Button = Button
     { _btPict :: ButtonDraw --Button -> SPic
@@ -61,9 +64,11 @@ 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