ENH make sound line up better with volume chnage
This commit is contained in:
parent
cb44b17d72
commit
4f14e11ae5
|
@ -92,10 +92,10 @@ volumeChangeSound :: FilePath
|
||||||
volumeChangeSound = "smb_fireball.wav"
|
volumeChangeSound = "smb_fireball.wav"
|
||||||
|
|
||||||
runVolumeDown :: X ()
|
runVolumeDown :: X ()
|
||||||
runVolumeDown = void (lowerVolume 2) >> spawnSound volumeChangeSound
|
runVolumeDown = spawnSound volumeChangeSound >> void (lowerVolume 2)
|
||||||
|
|
||||||
runVolumeUp :: X ()
|
runVolumeUp :: X ()
|
||||||
runVolumeUp = void (raiseVolume 2) >> spawnSound volumeChangeSound
|
runVolumeUp = spawnSound volumeChangeSound >> void (raiseVolume 2)
|
||||||
|
|
||||||
runVolumeMute :: X ()
|
runVolumeMute :: X ()
|
||||||
runVolumeMute = void toggleMute >> spawnSound volumeChangeSound
|
runVolumeMute = void toggleMute >> spawnSound volumeChangeSound
|
||||||
|
|
Loading…
Reference in New Issue