From 18c33d9d6d8313123f9bc7e9bdf9558e8b2ab993 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Thu, 16 Jan 2014 05:05:13 -0500
Subject: remove text output of events

---
 axis.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'axis.hs')

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 ()
 
-- 
cgit v1.2.3