Refactor control list display

src/Dodge/Save.hs

@@ -1,5 +1,9 @@
 module Dodge.Save
-    where
+    ( storeLevel
+    , loadStoredLevel
+    , doQuicksave
+    )
+  where
 import Dodge.Data
 
 import Data.Maybe
@@ -12,7 +16,7 @@ storeLevel w = case _storedLevel w of
     _       -> w
 
 loadStoredLevel :: World -> World
-loadStoredLevel w = fromMaybe w $ _storedLevel w
+loadStoredLevel w = fromMaybe w $ _storedLevel w <&> quicksaveLevel .~ _quicksaveLevel w
 
 doQuicksave :: World -> World
 doQuicksave w = w & quicksaveLevel ?~ clearKeys w