Continue work on menu screens

src/Dodge/Menu.hs

@@ -19,7 +19,7 @@ import Dodge.StartNewGame
 import LensHelp
 import MaybeHelp
 import Padding
-import SDL
+--import SDL
 import System.Clipboard
 import Text.Read
 import Data.Maybe
@@ -63,8 +63,6 @@ pauseMenuOptions =
         , Toggle id (opText "VIEW CURRENT SEED")
         , Toggle saveQuit (opText "SAVE AND QUIT")
         ]
-        ++ [ InvisibleToggle ScancodeEscape hardQuit
-           ]
   where
     opText = const . MODString
 
@@ -162,12 +160,12 @@ soundMenu =
 
 soundMenuOptions :: [MenuOption]
 soundMenuOptions =
-    [ theoption ScancodeY volume_master ScancodeU "MASTER VOLUME" _volume_master
-    , theoption ScancodeH volume_sound ScancodeJ "EFFECTS VOLUME" _volume_sound
-    , theoption ScancodeN volume_music ScancodeM "MUSIC VOLUME" _volume_music
+    [ theoption volume_master "MASTER VOLUME" _volume_master
+    , theoption volume_sound  "EFFECTS VOLUME" _volume_sound
+    , theoption volume_music  "MUSIC VOLUME" _volume_music
     ]
   where
-    theoption scod1 stype scod2 str voltype =
+    theoption stype str voltype =
         Toggle2
             (change dec stype)
             (change inc stype)