still working on getWordsLossless...

[wavpack.git] / Codec / Audio / WavPack / Words.hs

diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs
index fb08b5e68875d280f93dfca55ef2b08e1be2576d..08887186f39ee2ea841327e4b7296bcbba3f7726 100644 (file)
--- 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