Cleanup

2022-07-26 10:22:55 +01:00
parent 0d479cba87
commit 5c8e786dfa
24 changed files with 191 additions and 158 deletions
@@ -24,10 +24,8 @@ useRewindGun _ _ w = case _rewindWorlds (_cWorld w) of
    rewindusing :: CWorld -> [CWorld] -> World
    rewindusing w' ws = w
        & cWorld . maybeWorld .~ Just' ( w'
-        & upbuts
        & rewindWorlds .~ ws
        )
-    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