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/Xmobar/Plugins') 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