Delete cruft, add Reader monad to some internal ai

src/Dodge/Event/Keyboard.hs

@@ -25,7 +25,6 @@ import qualified Data.Set as S
 import Control.Lens
 
 import Picture
-
 {- | Handles keyboard press and release.
 On release, remove scancode from the 'Set' of pressed keys.
 On press, adds the scancode, and perhaps applies a direct effect:
@@ -58,7 +57,6 @@ handlePressedKey True _     w   = Just w
 handlePressedKey _    scode w
     | null (_menuLayers w)      = handlePressedKeyInGame scode w
     | otherwise                 = handlePressedKeyInMenu (head $ _menuLayers w) scode w
-handlePressedKey _ _ w          = Just w
 
 debugKey :: Scancode -> World -> Maybe World 
 debugKey scancode w