diff --git a/Pioneers.cabal b/Pioneers.cabal
index e12f96b..338f404 100644
--- a/Pioneers.cabal
+++ b/Pioneers.cabal
@@ -6,7 +6,7 @@ author:         sdressel
 
 executable Pioneers
   hs-source-dirs:  src
-  ghc-options:     -Wall
+  ghc-options:     -Wall -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 -optlo-O3 -fllvm
   other-modules:   
                    Map.Map,
                    Render.Misc,
diff --git a/src/Main.hs b/src/Main.hs
index 6bfeaa8..a872a91 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -378,8 +378,9 @@ processEvent e = do
                             adjustWindow
                     SizeChanged ->
                             adjustWindow
-                    _ -> 
-                            liftIO $ putStrLn $ unwords ["Unhandled Window-Event:",show e]
+                    _ ->
+                        return ()
+                        --liftIO $ putStrLn $ unwords ["Unhandled Window-Event:",show e]
             Keyboard movement _ isRepeated key -> --up/down window(ignored) true/false actualKey
                      -- need modifiers? use "keyModifiers key" to get them
                 case keyScancode key of