Fix switch detection, cleanup

src/Dodge/Button/Draw.hs

@@ -12,7 +12,7 @@ drawButton bt = case bt ^. btEvent of
     ButtonPress {_bpColor = col} -> defaultDrawButton col bt
     ButtonSwitch {_bsColor1 = col1, _bsColor2 = col2} -> drawSwitch col1 col2 bt
     ButtonAccessTerminal -> mempty
-    ButtonDoNothing -> mempty
+--    ButtonDoNothing -> mempty
 
 drawSwitch :: Color -> Color -> Button -> SPic
 drawSwitch col1 col2 bt

src/Dodge/Button/Event.hs

@@ -8,7 +8,7 @@ import Dodge.WorldEffect
 
 doButtonEvent :: ButtonEvent -> Button -> World -> World
 doButtonEvent be = case be of
-    ButtonDoNothing -> const id
+--    ButtonDoNothing -> const id
     ButtonPress True _ _ -> const id
     ButtonPress False f _ -> \b ->
         doWdWd f