Remove some flat instances in an effort to allow compilation

2022-08-21 10:10:52 +01:00
parent 6e598339f1
commit 55c3a195c9
7 changed files with 38 additions and 25 deletions
@@ -44,7 +44,8 @@ data ButtonEvent
        , _boffEff :: WdWd
        }
    | ButtonAccessTerminal
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 data Button = Button
    { _btPict :: ButtonDraw --Button -> SPic
@@ -58,7 +59,8 @@ data Button = Button
    , _btName :: String
    , _btColor :: Color
    }
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 data ButtonState = BtOn | BtOff | BtNoLabel
    deriving (Eq, Ord, Show, Read, Generic, Flat)