Add more deriving clauses

src/Dodge/Data/Button.hs

@@ -10,6 +10,7 @@ import Color
 data ButtonDraw = DefaultDrawButton Color
     | DefaultDrawSwitch Color Color
     | DrawNoButton
+  deriving (Eq,Ord,Show,Read)
 data ButtonEvent = ButtonDoNothing
     | ButtonPress
         {_bpState :: ButtonState
@@ -32,6 +33,7 @@ data ButtonEvent = ButtonDoNothing
         ,_boffEff :: WdWd
         }
     | ButtonAccessTerminal
+  deriving (Eq,Ord,Show,Read)
 
 data Button = Button 
     { _btPict   :: ButtonDraw --Button -> SPic
@@ -45,6 +47,8 @@ data Button = Button
     , _btName   :: String
     , _btColor  :: Color
     }
+  deriving (Eq,Ord,Show,Read)
 data ButtonState = BtOn | BtOff | BtNoLabel
-  deriving (Eq, Show)
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Button
+makeLenses ''ButtonEvent