~pvsr/mpd-status

7843f80a21c37c3edfc339072d2df3d3ec9270b0 — Peter Rice 4 months ago 4632e33 
Work around divMod being broken for Volume

See https://github.com/vimus/libmpd-haskell/pull/121
patch browse 
1 files changed, 2 insertions(+), 2 deletions(-)

M Operation.hs

M Operation.hs => Operation.hs +2 -2
@@ 82,11 82,11 @@ nextAlbum =
          if isJust index then play index else next

inc :: Int -> Volume -> Volume
inc intStep vol = min 100 $ (vol `div` step + 1) * step
inc intStep vol = min 100 $ (vol `quot` step + 1) * step
  where step = fromIntegral intStep

dec :: Int -> Volume -> Volume
dec intStep vol = max 0 $ steppedQuotient * step
  where step = fromIntegral intStep
        (q, r) = vol `divMod` step
        (q, r) = vol `quotRem` step
        steppedQuotient = if r == 0 then q - 1 else q