Allow rewinding after combining items

2022-02-19 11:04:52 +00:00
parent 9923897fe2
commit 3f20398ed0
7 changed files with 25 additions and 19 deletions
@@ -83,8 +83,8 @@ functionalUpdate cfig w = checkEndGame

 doRewind :: World -> World
 doRewind w = case _maybeWorld w of
-    Just' w' -> w'
-    Nothing' -> w
+    Just' w' -> w' & rewinding .~ RewindingLastFrame
+    Nothing' -> w  & rewinding .~ NotRewinding

 zoneCreatures :: World -> World
 zoneCreatures w = w