Add (persistent) volume control

2021-04-08 11:06:02 +02:00
parent f1214c0584
commit ea0dfbe1df
8 changed files with 76 additions and 54 deletions
@@ -28,8 +28,7 @@ In such menus, the only way to change the world is using event handling.
 -}
 update :: World -> World
 update w = case _menuLayers w of
-    (ConfigSaveScreen x: ls) -> w & menuLayers .~ (ConfigSaveScreen (x-1) : ls)
-    (ConfigSaveScreen 0: ls) -> w & menuLayers .~ ls
+    (ConfigSaveScreen : ls) -> w & menuLayers .~ ls
    (_ : _) -> w    
    []  ->  let w1 = updateParticles' . updateProjectiles 
                                      . updateLightSources