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
@@ -21,13 +21,13 @@ useRewindGun _ _ w = case _rewindWorlds (_cWorld w) of
    (w':ws)   -> rewindusing w' ws
    _           -> w
  where
+    rewindusing :: CWorld -> [CWorld] -> World
    rewindusing w' ws = w
        & cWorld . maybeWorld .~ Just' ( w'
--        & creatures . ix (_crID cr) .~ cr
        & upbuts
-        & cWorld . rewindWorlds .~ ws
+        & rewindWorlds .~ ws
        )
-    upbuts = (cWorld . keys .~ _keys (_cWorld w)) .  (cWorld . mouseButtons .~ _mouseButtons (_cWorld w))
+    upbuts = (keys .~ _keys (_cWorld w)) .  (mouseButtons .~ _mouseButtons (_cWorld w))

 -- be careful changing this around; potential problems include updating the
 -- creature but using the old crInvSel value