remove text output of events

1 files changed, 1 insertions, 5 deletions

diff --git a/axis.hs b/axis.hs
index 5630620..293e11d 100644
--- a/axis.hs
+++ b/axis.hs
@@ -37,8 +37,7 @@ main =
       warpMouse = do
         _ <- SDL.warpMouse (fromIntegral (width `div` 2)) (fromIntegral (height `div` 2))
         return ()
---screen <- SDL.setVideoMode width height 32 [SDL.SWSurface, SDL.Fullscreen]
-  screen <- SDL.setVideoMode width height 32 [SDL.SWSurface]
+  screen <- SDL.setVideoMode width height 32 [SDL.SWSurface, SDL.Fullscreen]
 
   _ <- SDL.TTF.init
   font <- SDL.TTF.openFont "LiberationMono-Bold.ttf" 30
@@ -60,19 +59,16 @@ main =
         let x' = either (const "") id ex
 
         Control.Monad.when (x /= x' && x' /= "") $ do
-          putStrLn x'
           textBand videoSurface videoClipRect (SDL.Rect 0 0 0 70) font x'
           return ()
 
         Control.Monad.when (midiKeysDown' /= midiKeysDown) $ do
           let chord = showChord midiKeysDown'
-          Control.Monad.when (chord /= "") $ putStrLn chord
           textBand videoSurface videoClipRect (SDL.Rect 0 70 0 70) font chord
           return ()
 
         Control.Monad.when (keysDown' /= keysDown) $ do
           let chord = unwords $ map (\k -> drop 5 (show k)) $ Set.toList keysDown'
-          Control.Monad.when (chord /= "") $ putStrLn chord
           textBand videoSurface videoClipRect (SDL.Rect 0 210 0 70) font chord
           return ()