Move past/future worlds outside of serialised data structure

2023-03-25 18:50:42 +00:00
parent 7d96616b91
commit da8a2bad6e
6 changed files with 61 additions and 59 deletions
@@ -34,6 +34,8 @@ defaultWorld :: World
 defaultWorld =
    World
        { _cWorld = defaultCWorld
+        , _pastWorlds = mempty
+        , _timeFlow = NormalTimeFlow
        , _input = defaultInput
        , _toPlaySounds = M.empty
        , _playingSounds = M.empty
@@ -81,8 +83,6 @@ defaultCWorld =
        , _lWorld = defaultLWorld
        , _cwGen = defaultCWGen
        , _cClock = 0
-        , _pastWorlds = []
-        , _timeFlow = NormalTimeFlow
        , _seenWalls = mempty
        , _pathGraph = Data.Graph.Inductive.Graph.empty
        , _cwTiles = mempty