1 files changed, 6 insertions, 5 deletions

diff --git a/axis.hs b/axis.hs
index b59a6f6..7513163 100644
--- a/axis.hs
+++ b/axis.hs
@@ -5,6 +5,8 @@ import Control.Wire hiding (when)
 import Control.Wire.Session
 import Control.Monad
 import qualified Graphics.UI.SDL as SDL
+import AlsaSeq
+import qualified Data.Set as Set
 
 netwireIsCool :: (Monad m) => Wire (Timed NominalDiffTime ()) () m a String
 netwireIsCool =
@@ -19,17 +21,16 @@ netwireIsCool =
         holdFor 0.5 . periodic 1 . pure "Hoo..." <|>
         pure "...ray!"
 
---main :: IO ()
---main = testWire clockSession_ netwireIsCool
-
-main = SDL.withInit [SDL.InitVideo, SDL.InitTimer, SDL.InitJoystick] $ do
+main = SDL.withInit [SDL.InitVideo, SDL.InitTimer, SDL.InitJoystick] $
+  withAlsaInit $ \h public private q publicAddr privateAddr -> do
+  putStrLn "Initialized."
   loop clockSession_ netwireIsCool ""
   where
   loop s w x = do
     (ds, s') <- stepSession s
     (ex, w') <- stepWire w ds (Right x)
     let x' = either (const "") id ex
-    Control.Monad.when (x /= x' && x /= "") $ putStrLn x
+    Control.Monad.when (x /= x' && x' /= "") $ putStrLn x'
     let framerate = 30
     let delay = 1000 `div` framerate - 1000 * (floor $ dtime ds)
     SDL.delay (delay)