Fix---at least partially---level generation bug

src/Dodge/Event/Keyboard.hs

@@ -6,6 +6,7 @@ import Dodge.Data
 import Dodge.Base
 import Dodge.CreatureAction
 import Dodge.LoadConfig
+import Dodge.Event.Test
 
 import SDL
 import Data.Maybe
@@ -46,9 +47,6 @@ spaceAction w = case listToMaybe $ _closeActiveObjects w of
     Just (Right but) -> _btEvent but but w
     Nothing -> w
 
-testEvent :: World -> World
-testEvent w = w
-
 pauseGame :: World -> World
 pauseGame w = w {_menuState = PauseMenu}