From a6664b7d7116febf16a1f8ec9ce6938ae80a5283 Mon Sep 17 00:00:00 2001 From: PHO Date: Fri, 15 Jul 2011 18:56:57 +0900 Subject: [PATCH] still working on getWordsLossless... --- Codec/Audio/WavPack/Words.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs index fb08b5e..0888718 100644 --- a/Codec/Audio/WavPack/Words.hs +++ b/Codec/Audio/WavPack/Words.hs @@ -73,9 +73,11 @@ getWordsLossless isMono w0 bs0 nSamples0 | otherwise = error "FIXME" where - c ∷ EntropyData - c | n `rem` 2 ≡ 0 = fst $ wdEntropyData w - | otherwise = snd $ wdEntropyData w + entropy ∷ EntropyData + entropy + | isMono = fst $ wdEntropyData w + | n `rem` 2 ≡ 0 = fst $ wdEntropyData w + | otherwise = snd $ wdEntropyData w -- | Read a single unsigned value from the specified bitstream with a -- value from 0 to maxCode. If there are exactly a power of two number -- 2.40.0