Cleanup

2022-12-29 12:54:34 +00:00
parent bdd022e40b
commit 5bc764655d
15 changed files with 54 additions and 30 deletions
@@ -196,6 +196,8 @@ functionalUpdate' :: Universe -> Universe
 functionalUpdate' u = case u ^. uvWorld . cWorld . timeFlow of
    NormalTimeFlow -> functionalUpdate u
    ScrollTimeFlow smoothing _ _ _ -> over uvWorld (doTimeScroll smoothing) u
+    RewindLeftClick 0 _ -> u
+    RewindLeftClick _ _ -> over uvWorld scrollTimeBack u & uvWorld . cWorld . timeFlow .~ NormalTimeFlow
    _ -> u

 doTimeScroll :: Int -> World -> World