X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FWords.hs;h=1321c0725808b340aea6e490ebd1817c627cc021;hp=ae61d8a6e8e097e88f37d8a77ff4448ba2faf8ec;hb=8637d2f2dc3fcd383d8304160a87a3cf1141e467;hpb=ce16c8e93610c668816f6313df096625f509b26b

diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs
index ae61d8a..1321c07 100644
--- a/Codec/Audio/WavPack/Words.hs
+++ b/Codec/Audio/WavPack/Words.hs
@@ -155,14 +155,20 @@ getWordsLossless isMono w0 bs0 nSamples0
                 in
                   go2 0 w' bs n v
           | otherwise
-              = error "FIXME"
+              = let next8 ∷ Word8
+                    next8 = B.toBits (B.take (8 ∷ Int) bs)
+                in
+                  if next8 ≡ 0xFF then
+                      error "FIXME"
+                  else
+                      error "FIXME"
 
       go2 ∷ Word32 → WordsData → bs → Int → New v Int32
           → (# WordsData, bs, Int, New v Int32 #)
       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