From 84350cf791beb1b0b42c1bd8b9cc82214d54f39a Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Thu, 17 Dec 2015 21:57:53 -0500
Subject: axis.hs: use AlsaShutUp

---
 axis.hs | 3 +++
 1 file changed, 3 insertions(+)

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