Bug tracking in menu key presses

src/Dodge/Event/Menu.hs

@@ -1,5 +1,6 @@
 module Dodge.Event.Menu (
     handlePressedKeyInMenu,
+    optionListToEffects,
 ) where
 
 import Control.Lens
@@ -12,8 +13,6 @@ handlePressedKeyInMenu :: ScreenLayer -> Scancode -> Universe -> Universe
 handlePressedKeyInMenu mState scode = case mState of
     OptionScreen{_scOptions = mos, _scDefaultEff = defeff} ->
         optionListToEffects defeff scode mos
-    --DisplayScreen{} -> popScreen
---    WaitScreen{} -> return . Just
     _ -> id
 
 optionListToEffects ::
@@ -24,8 +23,8 @@ optionListToEffects ::
     Universe
 optionListToEffects defaulteff sc mops u = case sc of
     ScancodeSpace ->
-            (uvScreenLayers . ix 0 . scOptionsOffset %~ (f . (+ mlines)))
-            $ u
+        (uvScreenLayers . ix 0 . scOptionsOffset %~ (f . (+ mlines)))
+            u
     _ ->
         ( fromMaybe defaulteff
             . lookup sc