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
@@ -199,8 +199,8 @@ setOldPos cr = cr

 doRewind :: World -> World
 doRewind w = case _maybeWorld (_cWorld w) of
-    Just' w' -> w' & cWorld . timeFlow .~ RewindingLastFrame
-    Nothing' -> w  & cWorld . timeFlow .~ NormalTimeFlow
+    Just' cw -> w & cWorld .~ (cw & timeFlow .~ RewindingLastFrame)
+    Nothing' -> w & cWorld . timeFlow .~ NormalTimeFlow

 zoneCreatures :: World -> World
 zoneCreatures w = w