From 6d1cc460aedb4106da264a849d937df2b9255fe0 Mon Sep 17 00:00:00 2001
From: Daniel Schüssler <933504+DanielSchuessler@users.noreply.github.com>
Date: Sat, 19 Jan 2019 15:24:05 +0100
Subject: Alsa plugin: Restart alsactl if it quits (Fixes #376)

---
 test/Xmobar/Plugins/Monitors/AlsaSpec.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/Xmobar/Plugins/Monitors/AlsaSpec.hs b/test/Xmobar/Plugins/Monitors/AlsaSpec.hs
index 53c720f..14810dd 100644
--- a/test/Xmobar/Plugins/Monitors/AlsaSpec.hs
+++ b/test/Xmobar/Plugins/Monitors/AlsaSpec.hs
@@ -58,7 +58,9 @@ runFakeAlsactlTest =
             waiterTaskIsRunning <- newEmptyMVar :: IO (MVar ())
             waiterTaskIsWaiting <- newEmptyMVar :: IO (MVar ())
 
-            withMonitorWaiter fifoPath (Just fakeAlsactlPath) $ \waitFunc -> do
+            let outputCallback msg = fail ("Did not expect the output callback to be invoked (message: "++show msg++")")
+
+            withMonitorWaiter fifoPath (Just fakeAlsactlPath) outputCallback $ \waitFunc -> do
 
               let addToTimeline e =  modifyMVar_ timeline (pure . (e :))
 
-- 
cgit v1.2.3