we need maxVol for testing

fuzzy-id · Jan 10, 2015 · d258e9b · d258e9b
1 parent db7e0ea
commit d258e9b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/.xmonad/Pulse.hs b/.xmonad/Pulse.hs
@@ -30,14 +30,16 @@ 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
 
 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]