Linting, haddocking

2021-04-29 15:31:07 +02:00
parent 750a67ea6e
commit 6a38950501
34 changed files with 506 additions and 441 deletions
@@ -50,13 +50,13 @@ menuScreen cfig hw hh mLays = case mLays of
        ,tst (-100) 100 0.4 "CONTROLS"
        ,controlsList
        ]
-    (ConfigSaveScreen : _) -> optionsList hw hh "SAVING..." []
+    (WaitMessage s : _) -> optionsList hw hh s []
    _ -> blank
  where 
    tst x y sc t = translate x y $ scale sc sc $ color white $ text t
-    mavol = f $ _volume_master $ cfig
-    snvol = f $ _volume_sound  $ cfig
-    muvol = f $ _volume_music  $ cfig
+    mavol = f $ _volume_master cfig
+    snvol = f $ _volume_sound  cfig
+    muvol = f $ _volume_music  cfig
    f x = show $ round $ 10 * x
    showShadRes i = "1/"++ show i