Allow for events to do io

src/Dodge/Event/Menu.hs

@@ -7,30 +7,31 @@ import Dodge.Debug.Terminal
 import Dodge.Menu
 
 import Control.Monad
-import Control.Lens
+--import Control.Lens
 import SDL
 
-handlePressedKeyInMenu :: ScreenLayer -> Scancode -> Universe -> Maybe Universe
+handlePressedKeyInMenu :: ScreenLayer -> Scancode -> Universe -> IO (Maybe Universe)
 handlePressedKeyInMenu mState scode = case mState of
     OptionScreen { _scOptions = mos, _scDefaultEff = defeff} 
                         -> optionListToEffects mos defeff scode
-    DisplayScreen {}    -> popScreen
-    ColumnsScreen {}    -> popScreen
-    WaitScreen {}       -> Just
+    DisplayScreen {}    -> return . popScreen
+    ColumnsScreen {}    -> return . popScreen
+    WaitScreen {}       -> return . Just
     InputScreen s       -> case scode of
-        ScancodeEscape  -> popScreen
-        ScancodeReturn  -> popScreen . applyTerminalString s
+        ScancodeEscape  -> return . popScreen
+        ScancodeReturn  -> return . popScreen . applyTerminalString s
         ScancodeBackspace 
-            -> popScreen >=> pushScreen (InputScreen $ dropLast s)
-        _   -> popScreen >=> pushScreen (InputScreen $ s ++ [scodeToChar scode])
+            -> return . (popScreen >=> pushScreen (InputScreen $ dropLast s))
+        _   -> return . (popScreen >=> pushScreen (InputScreen $ s ++ [scodeToChar scode]))
   where 
     dropLast (x:xs) = init (x:xs)
     dropLast _      = []
-optionListToEffects :: [MenuOption] -> (Universe -> Maybe Universe) -> Scancode 
-    -> Universe -> Maybe Universe
+
+optionListToEffects :: [MenuOption] -> (Universe -> IO (Maybe Universe)) -> Scancode 
+    -> Universe -> IO (Maybe Universe)
 optionListToEffects mos defaulteff sc w = case lookup sc listEffects of
     Nothing -> defaulteff w
-    Just eff -> eff w
+    Just eff -> return $ eff w
   where
     listEffects = concatMap menuOptionToEffects mos