Make concrete world read/showable

2022-07-25 12:23:21 +01:00
parent f8f9fbe800
commit f5604ef429
6 changed files with 15 additions and 13 deletions
@@ -291,8 +291,8 @@ data CWorld = CWorld
    , _worldBounds      :: Bounds
    , _gameRooms        :: [GameRoom] -- consider using an IntMap
    , _roomClipping     :: [ConvexPoly]
-    , _maybeWorld       :: Maybe' World
-    , _rewindWorlds     :: [World]
+    , _maybeWorld       :: Maybe' CWorld
+    , _rewindWorlds     :: [CWorld]
    , _timeFlow         :: TimeFlowStatus
    , _worldClock       :: Int
    , _hammers          :: M.Map WorldHammer HammerPosition
@@ -305,7 +305,7 @@ data CWorld = CWorld
    , _lSelect          :: Point2
    , _rSelect          :: Point2
    }
-  --deriving (Eq,Show,Read)
+  deriving (Eq,Show,Read)
 data TimeFlowStatus
    = RewindingNow
    | RewindingLastFrame