Commit mid add time scroll

2022-10-24 10:44:23 +01:00
parent 21dc670c9f
commit 86a9ab7582
17 changed files with 62 additions and 55 deletions
@@ -32,6 +32,7 @@ defaultWorld =
        , _backspaceTimer = 0
        , _timeFlow = NormalTimeFlow
        , _rbOptions = NoRightButtonOptions
+        , _cwTime = defaultCWTime
        }

 defaultCWGen :: CWGen
@@ -125,7 +126,6 @@ defaultCWorld =
        , _selLocation = 0
        , _foregroundShapes = mempty
        , _distortions = []
-        , _cwTime = defaultCWTime
        }

 defaultCWTime :: CWTime
@@ -134,6 +134,7 @@ defaultCWTime =
        { _worldClock = 0
        , _maybeWorld = Nothing'
        , _rewindWorlds = []
+        , _futureWorlds = []
        , _deathDelay = Nothing
        }