Remove explicit scancode from menu items

src/Dodge/Render/MenuScreen.hs

@@ -5,17 +5,14 @@ module Dodge.Render.MenuScreen (
 ) where
 
 import Dodge.Menu.Option
-import Dodge.Data.CardinalPoint
 import Dodge.Render.List
 import Dodge.Data.SelectionList
 import qualified Data.Text as T
 import Dodge.Base.Window
 import Dodge.Data.Universe
-import Dodge.ScodeToChar
 import Dodge.WindowLayout
 import Padding
 import Picture
-import qualified Data.Set as Set
 
 menuScreen' :: Universe -> ScreenLayer -> Picture
 menuScreen' w screen = case screen of
@@ -95,8 +92,8 @@ drawOptions u title ops off mselpos footer =
         x | x < length ops -> take (availableMenuLines cfig) (drop off visibleops)
         _ -> visibleops
     ops'' = case availableMenuLines cfig of
-        x | x < length ops -> map (menuOptionToString u maxOptionLength) ops' ++ [(white, "SPACE: MORE OPTIONS")]
-        _ -> map (menuOptionToString u maxOptionLength) ops'
+        x | x < length ops -> zipWith (menuOptionToString u maxOptionLength) ['A'..] ops' ++ [(white, "SPACE: MORE OPTIONS")]
+        _ -> zipWith (menuOptionToString u maxOptionLength) ['A'..] ops'
     visibleops = filter notInvisible ops
     notInvisible InvisibleToggle{} = False
     notInvisible _ = True