diff options
-rw-r--r-- | axis.hs | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -25,6 +25,8 @@ import qualified Sound.ALSA.Sequencer | |||
25 | import qualified Sound.ALSA.Sequencer.Queue | 25 | import qualified Sound.ALSA.Sequencer.Queue |
26 | import qualified Sound.ALSA.Sequencer.Address | 26 | import qualified Sound.ALSA.Sequencer.Address |
27 | 27 | ||
28 | import AlsaShutUp | ||
29 | |||
28 | smartShowPitch = showPitch -- TODO: use flat for Eb, Bb; use unicode flat/sharp chars | 30 | smartShowPitch = showPitch -- TODO: use flat for Eb, Bb; use unicode flat/sharp chars |
29 | 31 | ||
30 | _USE_HEXAGONS = True | 32 | _USE_HEXAGONS = True |
@@ -226,6 +228,7 @@ main = | |||
226 | -- pixelFormat or the faked one, so fuck it. See colorToPixel let pixelFormat = | 228 | -- pixelFormat or the faked one, so fuck it. See colorToPixel let pixelFormat = |
227 | -- SDL.surfaceGetPixelFormat videoSurface pixelFormat <- SDL.surfaceGetPixelFormat <$> | 229 | -- SDL.surfaceGetPixelFormat videoSurface pixelFormat <- SDL.surfaceGetPixelFormat <$> |
228 | -- SDL.createRGBSurfaceEndian [] 1 1 24 | 230 | -- SDL.createRGBSurfaceEndian [] 1 1 24 |
231 | shutUp | ||
229 | putStrLn "Initialized." | 232 | putStrLn "Initialized." |
230 | 233 | ||
231 | (_, ()) <- execRWST mainLoop | 234 | (_, ()) <- execRWST mainLoop |