X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FWords.hs;fp=Codec%2FAudio%2FWavPack%2FWords.hs;h=08887186f39ee2ea841327e4b7296bcbba3f7726;hp=fb08b5e68875d280f93dfca55ef2b08e1be2576d;hb=a6664b7d7116febf16a1f8ec9ce6938ae80a5283;hpb=880fbc6589f134369f5a3cbbcfa140da32c9a71c

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