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
@@ -187,7 +187,8 @@ data CWorld = CWorld
    , _cwTime :: CWTime
    , _cwGen :: CWGen
    }
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)

 data CWTime = CWTime
    { _maybeWorld :: Maybe' CWorld
@@ -195,7 +196,8 @@ data CWTime = CWTime
    , _worldClock :: Int
    , _deathDelay :: Maybe Int
    }
-    deriving (Eq, Show, Read, Generic, Flat)
+    deriving (Eq, Show, Read, Generic)
+    --hderiving (Eq, Show, Read, Generic, Flat)
    

 data CWGen = CWGen