diff options
| author | Daniel Schüssler <933504+DanielSchuessler@users.noreply.github.com> | 2019-01-19 15:24:05 +0100 |
|---|---|---|
| committer | Daniel Schüssler <933504+DanielSchuessler@users.noreply.github.com> | 2019-01-19 15:24:05 +0100 |
| commit | 6d1cc460aedb4106da264a849d937df2b9255fe0 (patch) | |
| tree | 8eed825d7ed57825fe8b2e3b66008aeb09203692 /test/Xmobar | |
| parent | e2c997b5e2d4589d5a4710049734a0a03048363d (diff) | |
| download | xmobar-6d1cc460aedb4106da264a849d937df2b9255fe0.tar.gz xmobar-6d1cc460aedb4106da264a849d937df2b9255fe0.tar.bz2 | |
Alsa plugin: Restart alsactl if it quits (Fixes #376)
Diffstat (limited to 'test/Xmobar')
| -rw-r--r-- | test/Xmobar/Plugins/Monitors/AlsaSpec.hs | 4 |
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 :)) |