summaryrefslogtreecommitdiffhomepage
path: root/test/Xmobar/Plugins/Monitors
diff options
context:
space:
mode:
authorDaniel Schüssler <933504+DanielSchuessler@users.noreply.github.com>2019-01-19 15:24:05 +0100
committerDaniel Schüssler <933504+DanielSchuessler@users.noreply.github.com>2019-01-19 15:24:05 +0100
commit6d1cc460aedb4106da264a849d937df2b9255fe0 (patch)
tree8eed825d7ed57825fe8b2e3b66008aeb09203692 /test/Xmobar/Plugins/Monitors
parente2c997b5e2d4589d5a4710049734a0a03048363d (diff)
downloadxmobar-6d1cc460aedb4106da264a849d937df2b9255fe0.tar.gz
xmobar-6d1cc460aedb4106da264a849d937df2b9255fe0.tar.bz2
Alsa plugin: Restart alsactl if it quits (Fixes #376)
Diffstat (limited to 'test/Xmobar/Plugins/Monitors')
-rw-r--r--test/Xmobar/Plugins/Monitors/AlsaSpec.hs4
1 files changed, 3 insertions, 1 deletions
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 :))