From 8637d2f2dc3fcd383d8304160a87a3cf1141e467 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sat, 16 Jul 2011 03:32:27 +0900
Subject: [PATCH] I'm getting tired of this stupid project...

---
 Codec/Audio/WavPack/Words.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs
index 92282cc..1321c07 100644
--- a/Codec/Audio/WavPack/Words.hs
+++ b/Codec/Audio/WavPack/Words.hs
@@ -155,7 +155,13 @@ 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 #)
-- 
2.40.0