still working on getWordsLossless...

diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs
index ae61d8a6e8e097e88f37d8a77ff4448ba2faf8ec..92282ccc420518db3464368323de4a573e4baec8 100644 (file)
--- a/Codec/Audio/WavPack/Words.hs
+++ b/Codec/Audio/WavPack/Words.hs
@@ -162,7 +162,7 @@ getWordsLossless isMono w0 bs0 nSamples0
       go2 0 w bs n v
           = let ent  = getEntropy n w
                 low  = 0
       go2 0 w bs n v
           = let ent  = getEntropy n w
                 low  = 0

-                high = getMedian0 ent
+                high = getMedian0 ent - 1

                 ent' = decMedian0 ent
                 w'   = setEntropy ent' n w
             in
                 ent' = decMedian0 ent
                 w'   = setEntropy ent' n w
             in