Digital line zoning

src/Dodge/Event/Menu.hs

@@ -16,8 +16,8 @@ import qualified Data.Text as T
 
 handlePressedKeyInMenu :: ScreenLayer -> Scancode -> Universe -> IO (Maybe Universe)
 handlePressedKeyInMenu mState scode = case mState of
-    OptionScreen { _scOptions = mos, _scDefaultEff = defeff, _scOptionsOffset = offset}
-                        -> optionListToEffects defeff scode offset mos
+    OptionScreen { _scOptions = mos, _scDefaultEff = defeff}
+                        -> optionListToEffects defeff scode mos
     DisplayScreen {}    -> popScreen
     ColumnsScreen {}    -> popScreen
     WaitScreen {}       -> return . Just
@@ -36,10 +36,9 @@ handlePressedKeyInMenu mState scode = case mState of
 optionListToEffects 
     :: (Universe -> IO (Maybe Universe)) 
     -> Scancode
-    -> Int
     -> [MenuOption]
     -> Universe -> IO (Maybe Universe)
-optionListToEffects defaulteff sc offset mops u = case sc of
+optionListToEffects defaulteff sc mops u = case sc of
     ScancodeSpace -> return . Just 
         . (menuLayers . ix 0 . scOptionsOffset %~ (f . (+ mlines)))
         $ u