Move past/future worlds outside of serialised data structure

src/Dodge/Data/CWorld.hs

@@ -27,33 +27,12 @@ data CWorld = CWorld
     , _cwCamPos :: CamPos
     , _cwGen :: CWGen
     , _cClock :: Int
-    , _pastWorlds :: [LWorld]
-    , _timeFlow :: TimeFlowStatus
     , _seenWalls :: IS.IntSet
     , _cwTiles :: [Tile]
     , _pathGraph :: Gr Point2 PathEdge
     , _numberFloorVerxs :: Int
     }
 
-data TimeFlowStatus
-    = DeathTime
-        { _deathDelay :: Int }
-    | NormalTimeFlow
-    | ScrollTimeFlow
-        { _scrollSmoothing :: Int 
-        , _reverseAmount :: Int
-        , _futureWorlds :: [LWorld]
-        , _scrollItemLocation :: Int
-        }
-    | RewindLeftClick
-        { _reverseAmount :: Int 
-        , _scrollItemLocation :: Int
-        }
-    | PausedTimeFlow
-        { _timeFlowCharge :: Int 
-        , _scrollItemLocation :: Int
-        }
-
 data CWGen = CWGen
     { _cwgParams :: GenParams
     , _cwgWorldBounds :: Bounds
@@ -67,11 +46,10 @@ data CWGen = CWGen
 
 makeLenses ''CWorld
 makeLenses ''CWGen
-makeLenses ''TimeFlowStatus
 concat
     <$> mapM
         (deriveJSON defaultOptions)
         [ ''CWGen
         , ''CWorld
-        , ''TimeFlowStatus
+--        , ''TimeFlowStatus
         ]