axis.hs: use AlsaShutUp

1 files changed, 3 insertions, 0 deletions

diff --git a/axis.hs b/axis.hs
index 51805fc..6a0a844 100644
--- a/axis.hs
+++ b/axis.hs
@@ -25,6 +25,8 @@ import qualified Sound.ALSA.Sequencer
 import qualified Sound.ALSA.Sequencer.Queue
 import qualified Sound.ALSA.Sequencer.Address
 
+import AlsaShutUp
+
 smartShowPitch = showPitch -- TODO: use flat for Eb, Bb; use unicode flat/sharp chars
 
 _USE_HEXAGONS = True
@@ -226,6 +228,7 @@ main =
       -- pixelFormat or the faked one, so fuck it. See colorToPixel let pixelFormat =
       -- SDL.surfaceGetPixelFormat videoSurface pixelFormat <- SDL.surfaceGetPixelFormat <$>
       -- SDL.createRGBSurfaceEndian [] 1 1 24
+      shutUp
       putStrLn "Initialized."
 
       (_, ()) <- execRWST mainLoop