From e1cad5786e4759b5e8e0522fff067703bed357e3 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Sun, 29 Dec 2013 18:32:10 +0100
Subject: [PATCH] removed debug-output

---
 src/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 1d0fdba..2c162db 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -128,7 +128,7 @@ updateCamera state = do
         d@((dx,dy,dz),(heading',pitch')) <- 
           if any (/= 0.0) [dx,dy,dz,dpitch,dheading] then
             preservingMatrix $ do
-                putStrLn $ unwords $ P.map show [dx,dy,dz,dpitch,dheading]
+                -- putStrLn $ unwords $ P.map show [dx,dy,dz,dpitch,dheading]
                 loadIdentity
  
                 -- in direction of current heading and pitch
@@ -142,7 +142,7 @@ updateCamera state = do
                 -- get changes in location components
                 mat   <- get (matrix Nothing) :: IO (GLmatrix GLfloat)
                 comps <- getMatrixComponents ColumnMajor mat
-                putStrLn $ show $ comps
+                -- putStrLn $ show $ comps
                 let [dx', dy', dz', _] = drop 12 comps
                     (heading', pitch') = (heading + dheading, pitch + dpitch)
                 return ((dx',dy',dz'),(heading',pitch'))
@@ -213,7 +213,7 @@ keyEvent state press = do
                 ps <- if not press
                   then return ps { keysPressed = fromIntegral code `IS.delete` kp }
                   else return ps { keysPressed = fromIntegral code `IS.insert` kp }
-                putStrLn $ unwords [name , show val, show code, show ps] -- trace (unwords [name , show val]) -- debugging
+                -- putStrLn $ unwords [name , show val, show code, show ps] -- trace (unwords [name , show val]) -- debugging
                 -- process keys
                 case press of
                   -- on PRESS only