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
@@ -32,7 +32,8 @@ data WdWd
    | WdWdNegateTrig Int
    | WdWdFromItixCrixWdWd Int Int ItCrWdWd
    | WdWdFromItCrixWdWd Item Int ItCrWdWd
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 data WdP2
    = WdP2Const Point2
@@ -74,7 +75,8 @@ data TmWdWd
    | TmWdWdfromWdWd WdWd
    | TmWdWdTermSound SoundID
    | TmWdWdDoDeathTriggers
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 deriveJSON defaultOptions ''ItCrWdWd
 deriveJSON defaultOptions ''WdWd