Cleanup

2022-07-27 12:49:23 +01:00
parent 6554d219dc
commit 8d17ce66e9
106 changed files with 2911 additions and 2678 deletions
@@ -38,7 +38,7 @@ data ButtonEvent = ButtonDoNothing
        ,_boffEff :: WdWd
        }
    | ButtonAccessTerminal
-  deriving (Eq,Ord,Show,Read,Generic)
+  deriving (Eq,Show,Read,Generic)
 instance ToJSON ButtonEvent  where
    toEncoding = genericToEncoding defaultOptions
 instance FromJSON ButtonEvent 
@@ -54,7 +54,7 @@ data Button = Button
    , _btName   :: String
    , _btColor  :: Color
    }
-  deriving (Eq,Ord,Show,Read,Generic)
+  deriving (Eq,Show,Read,Generic)
 instance ToJSON Button  where
    toEncoding = genericToEncoding defaultOptions
 instance FromJSON Button