From d258e9b33de370b47e2461d83068db1a492a2a3f Mon Sep 17 00:00:00 2001
From: Thomas Bach <thbach@students.uni-mainz.de>
Date: Sat, 10 Jan 2015 15:02:02 +0100
Subject: [PATCH] we need maxVol for testing

---
 .xmonad/Pulse.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/.xmonad/Pulse.hs b/.xmonad/Pulse.hs
index 3822caa..afb741c 100644
--- a/.xmonad/Pulse.hs
+++ b/.xmonad/Pulse.hs
@@ -30,7 +30,6 @@ changeVolumePercent n p = p {sinkVolume = newVolume}
         changed = sinkVolume p + change
         change = (maxVol * n) `div` 100
         minVol = 0
-        maxVol = readHex "10000"
 
 raiseVolumePercent :: Int -> PulseItem -> PulseItem
 raiseVolumePercent = changeVolumePercent
@@ -38,6 +37,9 @@ raiseVolumePercent = changeVolumePercent
 lowerVolumePercent :: Int -> PulseItem -> PulseItem
 lowerVolumePercent n = changeVolumePercent (-n)
 
+maxVol :: (Num a, Read a) => a
+maxVol = readHex "10000"
+
 -- Higher Level Commands
 
 paDumpSinks :: (MonadIO m, Functor m) => m [PulseItem]