From 2d97d4e8caa0d6495e8e282013349cee06ad9709 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Tue, 4 Feb 2014 14:15:15 +0100
Subject: [PATCH] added performance-compile-options

- added various GHC-Option to perform a better compile
- Using LLVM to optimize further
---
 Pioneers.cabal | 2 +-
 src/Main.hs    | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

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